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

(-)a/catalogue/ISBDdetail.pl (-4 lines)
Lines 145-151 $template->param ( Link Here
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
(-)a/catalogue/MARCdetail.pl (-4 lines)
Lines 321-327 $template->param ( Link Here
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
(-)a/catalogue/detail.pl (-5 lines)
Lines 515-521 if ($StaffDetailItemSelection) { Link Here
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;
(-)a/catalogue/imageviewer.pl (-4 lines)
Lines 82-88 $template->{VARS}->{'biblio'} = $biblio; Link Here
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
(-)a/catalogue/labeledMARCdetail.pl (-4 lines)
Lines 128-134 $template->param ( Link Here
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
(-)a/catalogue/moredetail.pl (-5 lines)
Lines 228-234 $template->{'VARS'}->{'searchid'} = $query->param('searchid'); Link Here
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
- 

Return to bug 23166