Attachment #90826 for bug #23166

View | Details | Raw Unified | Return to bug 23166
Collapse All | Expand All




my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_orders;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {

    }
    else {
        push @orders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_orders){
            push @baskets_orders,$myorder->{'basketno'};
            }
    }
}





my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_orders;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {

    }
    else {
        push @orders_using_biblio, $myorder;
        unless (grep { $_ eq $basket } @baskets_orders){
            push @baskets_orders,$myorder->{'basketno'};
            }
    }
}





my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_orders;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {

    }
    else {
        push @orders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_orders){
            push @baskets_orders,$myorder->{'basketno'};
            }
    }
}


my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
$template->param (countdeletedorders => $count_deletedorders_using_biblio);

$template->param (basketsorders => \@baskets_orders);
$template->param (basketsdeletedorders => \@baskets_deletedorders);

output_html_with_http_headers $query, $cookie, $template->output;




my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_orders;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {

    }
    else {
        push @orders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_orders){
            push @baskets_orders,$myorder->{'basketno'};
            }
    }
}





my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_orders;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {

    }
    else {
        push @orders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_orders){
            push @baskets_orders,$myorder->{'basketno'};
            }
    }
}





my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_orders;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {

    }
    else {
        push @orders_using_biblio, $myorder;
        unless (grep { $_ eq $basket } @baskets_orders){
            push @baskets_orders,$myorder->{'basketno'};
            }
    }
}

- 

Return to bug 23166

Lines 145-151 $template->param ( Link Here

(-)a/catalogue/ISBDdetail.pl (-4 lines)
145	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	145	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
146	my @deletedorders_using_biblio;	146	my @deletedorders_using_biblio;
147	my @orders_using_biblio;	147	my @orders_using_biblio;
148	my @baskets_orders;
149	my @baskets_deletedorders;	148	my @baskets_deletedorders;
150		149
151	foreach my $myorder (@allorders_using_biblio) {	150	foreach my $myorder (@allorders_using_biblio) {
Lines 158-166 foreach my $myorder (@allorders_using_biblio) { Link Here
158	}	157	}
159	else {	158	else {
160	push @orders_using_biblio, $myorder;	159	push @orders_using_biblio, $myorder;
161	unless (grep{ $_ eq $basket } @baskets_orders){
162	push @baskets_orders,$myorder->{'basketno'};
163	}
164	}	160	}
165	}	161	}
166		162

Lines 321-327 $template->param ( Link Here

(-)a/catalogue/MARCdetail.pl (-4 lines)
321	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	321	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
322	my @deletedorders_using_biblio;	322	my @deletedorders_using_biblio;
323	my @orders_using_biblio;	323	my @orders_using_biblio;
324	my @baskets_orders;
325	my @baskets_deletedorders;	324	my @baskets_deletedorders;
326		325
327	foreach my $myorder (@allorders_using_biblio) {	326	foreach my $myorder (@allorders_using_biblio) {
Lines 334-342 foreach my $myorder (@allorders_using_biblio) { Link Here
334	}	333	}
335	else {	334	else {
336	push @orders_using_biblio, $myorder;	335	push @orders_using_biblio, $myorder;
337	unless (grep { $_ eq $basket } @baskets_orders){
338	push @baskets_orders,$myorder->{'basketno'};
339	}
340	}	336	}
341	}	337	}
342		338

Lines 515-521 if ($StaffDetailItemSelection) { Link Here

(-)a/catalogue/detail.pl (-5 lines)
515	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	515	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
516	my @deletedorders_using_biblio;	516	my @deletedorders_using_biblio;
517	my @orders_using_biblio;	517	my @orders_using_biblio;
518	my @baskets_orders;
519	my @baskets_deletedorders;	518	my @baskets_deletedorders;
520		519
521	foreach my $myorder (@allorders_using_biblio) {	520	foreach my $myorder (@allorders_using_biblio) {
Lines 528-536 foreach my $myorder (@allorders_using_biblio) { Link Here
528	}	527	}
529	else {	528	else {
530	push @orders_using_biblio, $myorder;	529	push @orders_using_biblio, $myorder;
531	unless (grep{ $_ eq $basket } @baskets_orders){
532	push @baskets_orders,$myorder->{'basketno'};
533	}
534	}	530	}
535	}	531	}
536		532
Lines 540-546 $template->param (countorders => $count_orders_using_biblio); Link Here
540	my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;	536	my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
541	$template->param (countdeletedorders => $count_deletedorders_using_biblio);	537	$template->param (countdeletedorders => $count_deletedorders_using_biblio);
542		538
543	$template->param (basketsorders => \@baskets_orders);
544	$template->param (basketsdeletedorders => \@baskets_deletedorders);	539	$template->param (basketsdeletedorders => \@baskets_deletedorders);
545		540
546	output_html_with_http_headers $query, $cookie, $template->output;	541	output_html_with_http_headers $query, $cookie, $template->output;

Lines 82-88 $template->{VARS}->{'biblio'} = $biblio; Link Here

(-)a/catalogue/imageviewer.pl (-4 lines)
82	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	82	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
83	my @deletedorders_using_biblio;	83	my @deletedorders_using_biblio;
84	my @orders_using_biblio;	84	my @orders_using_biblio;
85	my @baskets_orders;
86	my @baskets_deletedorders;	85	my @baskets_deletedorders;
87		86
88	foreach my $myorder (@allorders_using_biblio) {	87	foreach my $myorder (@allorders_using_biblio) {
Lines 95-103 foreach my $myorder (@allorders_using_biblio) { Link Here
95	}	94	}
96	else {	95	else {
97	push @orders_using_biblio, $myorder;	96	push @orders_using_biblio, $myorder;
98	unless (grep{ $_ eq $basket } @baskets_orders){
99	push @baskets_orders,$myorder->{'basketno'};
100	}
101	}	97	}
102	}	98	}
103		99

Lines 128-134 $template->param ( Link Here

(-)a/catalogue/labeledMARCdetail.pl (-4 lines)
128	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	128	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
129	my @deletedorders_using_biblio;	129	my @deletedorders_using_biblio;
130	my @orders_using_biblio;	130	my @orders_using_biblio;
131	my @baskets_orders;
132	my @baskets_deletedorders;	131	my @baskets_deletedorders;
133		132
134	foreach my $myorder (@allorders_using_biblio) {	133	foreach my $myorder (@allorders_using_biblio) {
Lines 141-149 foreach my $myorder (@allorders_using_biblio) { Link Here
141	}	140	}
142	else {	141	else {
143	push @orders_using_biblio, $myorder;	142	push @orders_using_biblio, $myorder;
144	unless (grep{ $_ eq $basket } @baskets_orders){
145	push @baskets_orders,$myorder->{'basketno'};
146	}
147	}	143	}
148	}	144	}
149		145

Lines 228-234 $template->{'VARS'}->{'searchid'} = $query->param('searchid'); Link Here

(-)a/catalogue/moredetail.pl (-5 lines)
228	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	228	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
229	my @deletedorders_using_biblio;	229	my @deletedorders_using_biblio;
230	my @orders_using_biblio;	230	my @orders_using_biblio;
231	my @baskets_orders;
232	my @baskets_deletedorders;	231	my @baskets_deletedorders;
233		232
234	foreach my $myorder (@allorders_using_biblio) {	233	foreach my $myorder (@allorders_using_biblio) {
Lines 241-249 foreach my $myorder (@allorders_using_biblio) { Link Here
241	}	240	}
242	else {	241	else {
243	push @orders_using_biblio, $myorder;	242	push @orders_using_biblio, $myorder;
244	unless (grep { $_ eq $basket } @baskets_orders){
245	push @baskets_orders,$myorder->{'basketno'};
246	}
247	}	243	}
248	}	244	}
249		245
250	-