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 556-562 if ($StaffDetailItemSelection) { Link Here
556
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
556
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
557
my @deletedorders_using_biblio;
557
my @deletedorders_using_biblio;
558
my @orders_using_biblio;
558
my @orders_using_biblio;
559
my @baskets_orders;
560
my @baskets_deletedorders;
559
my @baskets_deletedorders;
561
560
562
foreach my $myorder (@allorders_using_biblio) {
561
foreach my $myorder (@allorders_using_biblio) {
Lines 569-577 foreach my $myorder (@allorders_using_biblio) { Link Here
569
    }
568
    }
570
    else {
569
    else {
571
        push @orders_using_biblio, $myorder;
570
        push @orders_using_biblio, $myorder;
572
        unless (grep{ $_ eq $basket } @baskets_orders){
573
            push @baskets_orders,$myorder->{'basketno'};
574
            }
575
    }
571
    }
576
}
572
}
577
573
Lines 583-589 $template->param (countorders => $count_orders_using_biblio); Link Here
583
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
579
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
584
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
580
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
585
581
586
$template->param (basketsorders => \@baskets_orders);
587
$template->param (basketsdeletedorders => \@baskets_deletedorders);
582
$template->param (basketsdeletedorders => \@baskets_deletedorders);
588
583
589
output_html_with_http_headers $query, $cookie, $template->output;
584
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