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

(-)a/catalogue/ISBDdetail.pl (-4 lines)
Lines 154-160 $template->param ( Link Here
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
(-)a/catalogue/MARCdetail.pl (-4 lines)
Lines 347-353 $template->param ( Link Here
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
(-)a/catalogue/detail.pl (-5 lines)
Lines 555-561 if ($StaffDetailItemSelection) { Link Here
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;
(-)a/catalogue/imageviewer.pl (-4 lines)
Lines 90-96 $template->{VARS}->{'biblio'} = $biblio; Link Here
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
(-)a/catalogue/labeledMARCdetail.pl (-4 lines)
Lines 136-142 $template->param ( Link Here
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
(-)a/catalogue/moredetail.pl (-5 lines)
Lines 270-276 $template->{'VARS'}->{'searchid'} = $query->param('searchid'); Link Here
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
- 

Return to bug 23166