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 560-566 if ($StaffDetailItemSelection) { Link Here
560
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
560
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
561
my @deletedorders_using_biblio;
561
my @deletedorders_using_biblio;
562
my @orders_using_biblio;
562
my @orders_using_biblio;
563
my @baskets_orders;
564
my @baskets_deletedorders;
563
my @baskets_deletedorders;
565
564
566
foreach my $myorder (@allorders_using_biblio) {
565
foreach my $myorder (@allorders_using_biblio) {
Lines 573-581 foreach my $myorder (@allorders_using_biblio) { Link Here
573
    }
572
    }
574
    else {
573
    else {
575
        push @orders_using_biblio, $myorder;
574
        push @orders_using_biblio, $myorder;
576
        unless (grep{ $_ eq $basket } @baskets_orders){
577
            push @baskets_orders,$myorder->{'basketno'};
578
            }
579
    }
575
    }
580
}
576
}
581
577
Lines 587-593 $template->param (countorders => $count_orders_using_biblio); Link Here
587
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
583
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
588
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
584
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
589
585
590
$template->param (basketsorders => \@baskets_orders);
591
$template->param (basketsdeletedorders => \@baskets_deletedorders);
586
$template->param (basketsdeletedorders => \@baskets_deletedorders);
592
587
593
output_html_with_http_headers $query, $cookie, $template->output;
588
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 274-280 $template->{'VARS'}->{'searchid'} = $query->param('searchid'); Link Here
274
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
274
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
275
my @deletedorders_using_biblio;
275
my @deletedorders_using_biblio;
276
my @orders_using_biblio;
276
my @orders_using_biblio;
277
my @baskets_orders;
278
my @baskets_deletedorders;
277
my @baskets_deletedorders;
279
278
280
foreach my $myorder (@allorders_using_biblio) {
279
foreach my $myorder (@allorders_using_biblio) {
Lines 287-295 foreach my $myorder (@allorders_using_biblio) { Link Here
287
    }
286
    }
288
    else {
287
    else {
289
        push @orders_using_biblio, $myorder;
288
        push @orders_using_biblio, $myorder;
290
        unless (grep { $_ eq $basket } @baskets_orders){
291
            push @baskets_orders,$myorder->{'basketno'};
292
            }
293
    }
289
    }
294
}
290
}
295
291
296
- 

Return to bug 23166