Attachment #108991 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 154-160 $template->param ( Link Here

(-)a/catalogue/ISBDdetail.pl (-4 lines)
154	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	154	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
155	my @deletedorders_using_biblio;	155	my @deletedorders_using_biblio;
156	my @orders_using_biblio;	156	my @orders_using_biblio;
157	my @baskets_orders;
158	my @baskets_deletedorders;	157	my @baskets_deletedorders;
159		158
160	foreach my $myorder (@allorders_using_biblio) {	159	foreach my $myorder (@allorders_using_biblio) {
Lines 167-175 foreach my $myorder (@allorders_using_biblio) { Link Here
167	}	166	}
168	else {	167	else {
169	push @orders_using_biblio, $myorder;	168	push @orders_using_biblio, $myorder;
170	unless (grep{ $_ eq $basket } @baskets_orders){
171	push @baskets_orders,$myorder->{'basketno'};
172	}
173	}	169	}
174	}	170	}
175		171

Lines 347-353 $template->param ( Link Here

(-)a/catalogue/MARCdetail.pl (-4 lines)
347	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	347	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
348	my @deletedorders_using_biblio;	348	my @deletedorders_using_biblio;
349	my @orders_using_biblio;	349	my @orders_using_biblio;
350	my @baskets_orders;
351	my @baskets_deletedorders;	350	my @baskets_deletedorders;
352		351
353	foreach my $myorder (@allorders_using_biblio) {	352	foreach my $myorder (@allorders_using_biblio) {
Lines 360-368 foreach my $myorder (@allorders_using_biblio) { Link Here
360	}	359	}
361	else {	360	else {
362	push @orders_using_biblio, $myorder;	361	push @orders_using_biblio, $myorder;
363	unless (grep { $_ eq $basket } @baskets_orders){
364	push @baskets_orders,$myorder->{'basketno'};
365	}
366	}	362	}
367	}	363	}
368		364

Lines 555-561 if ($StaffDetailItemSelection) { Link Here

(-)a/catalogue/detail.pl (-5 lines)
555	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	555	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
556	my @deletedorders_using_biblio;	556	my @deletedorders_using_biblio;
557	my @orders_using_biblio;	557	my @orders_using_biblio;
558	my @baskets_orders;
559	my @baskets_deletedorders;	558	my @baskets_deletedorders;
560		559
561	foreach my $myorder (@allorders_using_biblio) {	560	foreach my $myorder (@allorders_using_biblio) {
Lines 568-576 foreach my $myorder (@allorders_using_biblio) { Link Here
568	}	567	}
569	else {	568	else {
570	push @orders_using_biblio, $myorder;	569	push @orders_using_biblio, $myorder;
571	unless (grep{ $_ eq $basket } @baskets_orders){
572	push @baskets_orders,$myorder->{'basketno'};
573	}
574	}	570	}
575	}	571	}
576		572
Lines 582-588 $template->param (countorders => $count_orders_using_biblio); Link Here
582	my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;	578	my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
583	$template->param (countdeletedorders => $count_deletedorders_using_biblio);	579	$template->param (countdeletedorders => $count_deletedorders_using_biblio);
584		580
585	$template->param (basketsorders => \@baskets_orders);
586	$template->param (basketsdeletedorders => \@baskets_deletedorders);	581	$template->param (basketsdeletedorders => \@baskets_deletedorders);
587		582
588	output_html_with_http_headers $query, $cookie, $template->output;	583	output_html_with_http_headers $query, $cookie, $template->output;

Lines 90-96 $template->{VARS}->{'biblio'} = $biblio; Link Here

(-)a/catalogue/imageviewer.pl (-4 lines)
90	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	90	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
91	my @deletedorders_using_biblio;	91	my @deletedorders_using_biblio;
92	my @orders_using_biblio;	92	my @orders_using_biblio;
93	my @baskets_orders;
94	my @baskets_deletedorders;	93	my @baskets_deletedorders;
95		94
96	foreach my $myorder (@allorders_using_biblio) {	95	foreach my $myorder (@allorders_using_biblio) {
Lines 103-111 foreach my $myorder (@allorders_using_biblio) { Link Here
103	}	102	}
104	else {	103	else {
105	push @orders_using_biblio, $myorder;	104	push @orders_using_biblio, $myorder;
106	unless (grep{ $_ eq $basket } @baskets_orders){
107	push @baskets_orders,$myorder->{'basketno'};
108	}
109	}	105	}
110	}	106	}
111		107

Lines 136-142 $template->param ( Link Here

(-)a/catalogue/labeledMARCdetail.pl (-4 lines)
136	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	136	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
137	my @deletedorders_using_biblio;	137	my @deletedorders_using_biblio;
138	my @orders_using_biblio;	138	my @orders_using_biblio;
139	my @baskets_orders;
140	my @baskets_deletedorders;	139	my @baskets_deletedorders;
141		140
142	foreach my $myorder (@allorders_using_biblio) {	141	foreach my $myorder (@allorders_using_biblio) {
Lines 149-157 foreach my $myorder (@allorders_using_biblio) { Link Here
149	}	148	}
150	else {	149	else {
151	push @orders_using_biblio, $myorder;	150	push @orders_using_biblio, $myorder;
152	unless (grep{ $_ eq $basket } @baskets_orders){
153	push @baskets_orders,$myorder->{'basketno'};
154	}
155	}	151	}
156	}	152	}
157		153

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

(-)a/catalogue/moredetail.pl (-5 lines)
270	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	270	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
271	my @deletedorders_using_biblio;	271	my @deletedorders_using_biblio;
272	my @orders_using_biblio;	272	my @orders_using_biblio;
273	my @baskets_orders;
274	my @baskets_deletedorders;	273	my @baskets_deletedorders;
275		274
276	foreach my $myorder (@allorders_using_biblio) {	275	foreach my $myorder (@allorders_using_biblio) {
Lines 283-291 foreach my $myorder (@allorders_using_biblio) { Link Here
283	}	282	}
284	else {	283	else {
285	push @orders_using_biblio, $myorder;	284	push @orders_using_biblio, $myorder;
286	unless (grep { $_ eq $basket } @baskets_orders){
287	push @baskets_orders,$myorder->{'basketno'};
288	}
289	}	285	}
290	}	286	}
291		287
292	-