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

(-)a/catalogue/ISBDdetail.pl (-4 lines)
Lines 154-168 $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_deletedorders;
158
157
159
foreach my $myorder (@allorders_using_biblio) {
158
foreach my $myorder (@allorders_using_biblio) {
160
    my $basket = $myorder->{'basketno'};
159
    my $basket = $myorder->{'basketno'};
161
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
160
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
162
        push @deletedorders_using_biblio, $myorder;
161
        push @deletedorders_using_biblio, $myorder;
163
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
164
            push @baskets_deletedorders,$myorder->{'basketno'};
165
        }
166
    }
162
    }
167
    else {
163
    else {
168
        push @orders_using_biblio, $myorder;
164
        push @orders_using_biblio, $myorder;
(-)a/catalogue/MARCdetail.pl (-4 lines)
Lines 347-361 $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_deletedorders;
351
350
352
foreach my $myorder (@allorders_using_biblio) {
351
foreach my $myorder (@allorders_using_biblio) {
353
    my $basket = $myorder->{'basketno'};
352
    my $basket = $myorder->{'basketno'};
354
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
353
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
355
        push @deletedorders_using_biblio, $myorder;
354
        push @deletedorders_using_biblio, $myorder;
356
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
357
            push @baskets_deletedorders,$myorder->{'basketno'};
358
        }
359
    }
355
    }
360
    else {
356
    else {
361
        push @orders_using_biblio, $myorder;
357
        push @orders_using_biblio, $myorder;
(-)a/catalogue/detail.pl (-6 lines)
Lines 555-569 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_deletedorders;
559
558
560
foreach my $myorder (@allorders_using_biblio) {
559
foreach my $myorder (@allorders_using_biblio) {
561
    my $basket = $myorder->{'basketno'};
560
    my $basket = $myorder->{'basketno'};
562
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
561
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
563
        push @deletedorders_using_biblio, $myorder;
562
        push @deletedorders_using_biblio, $myorder;
564
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
565
            push @baskets_deletedorders,$myorder->{'basketno'};
566
        }
567
    }
563
    }
568
    else {
564
    else {
569
        push @orders_using_biblio, $myorder;
565
        push @orders_using_biblio, $myorder;
Lines 578-583 $template->param (countorders => $count_orders_using_biblio); Link Here
578
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
574
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
579
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
575
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
580
576
581
$template->param (basketsdeletedorders => \@baskets_deletedorders);
582
583
output_html_with_http_headers $query, $cookie, $template->output;
577
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/catalogue/imageviewer.pl (-4 lines)
Lines 90-104 $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_deletedorders;
94
93
95
foreach my $myorder (@allorders_using_biblio) {
94
foreach my $myorder (@allorders_using_biblio) {
96
    my $basket = $myorder->{'basketno'};
95
    my $basket = $myorder->{'basketno'};
97
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
96
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
98
        push @deletedorders_using_biblio, $myorder;
97
        push @deletedorders_using_biblio, $myorder;
99
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
100
            push @baskets_deletedorders,$myorder->{'basketno'};
101
        }
102
    }
98
    }
103
    else {
99
    else {
104
        push @orders_using_biblio, $myorder;
100
        push @orders_using_biblio, $myorder;
(-)a/catalogue/labeledMARCdetail.pl (-4 lines)
Lines 136-150 $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_deletedorders;
140
139
141
foreach my $myorder (@allorders_using_biblio) {
140
foreach my $myorder (@allorders_using_biblio) {
142
    my $basket = $myorder->{'basketno'};
141
    my $basket = $myorder->{'basketno'};
143
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
142
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
144
        push @deletedorders_using_biblio, $myorder;
143
        push @deletedorders_using_biblio, $myorder;
145
        unless (grep { $_ eq $basket } @baskets_deletedorders){
146
            push @baskets_deletedorders,$myorder->{'basketno'};
147
        }
148
    }
144
    }
149
    else {
145
    else {
150
        push @orders_using_biblio, $myorder;
146
        push @orders_using_biblio, $myorder;
(-)a/catalogue/moredetail.pl (-5 lines)
Lines 270-284 $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_deletedorders;
274
273
275
foreach my $myorder (@allorders_using_biblio) {
274
foreach my $myorder (@allorders_using_biblio) {
276
    my $basket = $myorder->{'basketno'};
275
    my $basket = $myorder->{'basketno'};
277
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
276
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
278
        push @deletedorders_using_biblio, $myorder;
277
        push @deletedorders_using_biblio, $myorder;
279
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
280
            push @baskets_deletedorders,$myorder->{'basketno'};
281
        }
282
    }
278
    }
283
    else {
279
    else {
284
        push @orders_using_biblio, $myorder;
280
        push @orders_using_biblio, $myorder;
285
- 

Return to bug 23166