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

(-)a/catalogue/ISBDdetail.pl (-4 lines)
Lines 145-159 $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_deletedorders;
149
148
150
foreach my $myorder (@allorders_using_biblio) {
149
foreach my $myorder (@allorders_using_biblio) {
151
    my $basket = $myorder->{'basketno'};
150
    my $basket = $myorder->{'basketno'};
152
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
151
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
153
        push @deletedorders_using_biblio, $myorder;
152
        push @deletedorders_using_biblio, $myorder;
154
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
155
            push @baskets_deletedorders,$myorder->{'basketno'};
156
        }
157
    }
153
    }
158
    else {
154
    else {
159
        push @orders_using_biblio, $myorder;
155
        push @orders_using_biblio, $myorder;
(-)a/catalogue/MARCdetail.pl (-4 lines)
Lines 321-335 $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_deletedorders;
325
324
326
foreach my $myorder (@allorders_using_biblio) {
325
foreach my $myorder (@allorders_using_biblio) {
327
    my $basket = $myorder->{'basketno'};
326
    my $basket = $myorder->{'basketno'};
328
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
327
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
329
        push @deletedorders_using_biblio, $myorder;
328
        push @deletedorders_using_biblio, $myorder;
330
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
331
            push @baskets_deletedorders,$myorder->{'basketno'};
332
        }
333
    }
329
    }
334
    else {
330
    else {
335
        push @orders_using_biblio, $myorder;
331
        push @orders_using_biblio, $myorder;
(-)a/catalogue/detail.pl (-6 lines)
Lines 515-529 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_deletedorders;
519
518
520
foreach my $myorder (@allorders_using_biblio) {
519
foreach my $myorder (@allorders_using_biblio) {
521
    my $basket = $myorder->{'basketno'};
520
    my $basket = $myorder->{'basketno'};
522
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
521
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
523
        push @deletedorders_using_biblio, $myorder;
522
        push @deletedorders_using_biblio, $myorder;
524
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
525
            push @baskets_deletedorders,$myorder->{'basketno'};
526
        }
527
    }
523
    }
528
    else {
524
    else {
529
        push @orders_using_biblio, $myorder;
525
        push @orders_using_biblio, $myorder;
Lines 536-541 $template->param (countorders => $count_orders_using_biblio); Link Here
536
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
532
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
537
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
533
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
538
534
539
$template->param (basketsdeletedorders => \@baskets_deletedorders);
540
541
output_html_with_http_headers $query, $cookie, $template->output;
535
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/catalogue/imageviewer.pl (-4 lines)
Lines 82-96 $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_deletedorders;
86
85
87
foreach my $myorder (@allorders_using_biblio) {
86
foreach my $myorder (@allorders_using_biblio) {
88
    my $basket = $myorder->{'basketno'};
87
    my $basket = $myorder->{'basketno'};
89
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
88
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
90
        push @deletedorders_using_biblio, $myorder;
89
        push @deletedorders_using_biblio, $myorder;
91
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
92
            push @baskets_deletedorders,$myorder->{'basketno'};
93
        }
94
    }
90
    }
95
    else {
91
    else {
96
        push @orders_using_biblio, $myorder;
92
        push @orders_using_biblio, $myorder;
(-)a/catalogue/labeledMARCdetail.pl (-4 lines)
Lines 128-142 $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_deletedorders;
132
131
133
foreach my $myorder (@allorders_using_biblio) {
132
foreach my $myorder (@allorders_using_biblio) {
134
    my $basket = $myorder->{'basketno'};
133
    my $basket = $myorder->{'basketno'};
135
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
134
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
136
        push @deletedorders_using_biblio, $myorder;
135
        push @deletedorders_using_biblio, $myorder;
137
        unless (grep { $_ eq $basket } @baskets_deletedorders){
138
            push @baskets_deletedorders,$myorder->{'basketno'};
139
        }
140
    }
136
    }
141
    else {
137
    else {
142
        push @orders_using_biblio, $myorder;
138
        push @orders_using_biblio, $myorder;
(-)a/catalogue/moredetail.pl (-5 lines)
Lines 228-242 $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_deletedorders;
232
231
233
foreach my $myorder (@allorders_using_biblio) {
232
foreach my $myorder (@allorders_using_biblio) {
234
    my $basket = $myorder->{'basketno'};
233
    my $basket = $myorder->{'basketno'};
235
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
234
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
236
        push @deletedorders_using_biblio, $myorder;
235
        push @deletedorders_using_biblio, $myorder;
237
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
238
            push @baskets_deletedorders,$myorder->{'basketno'};
239
        }
240
    }
236
    }
241
    else {
237
    else {
242
        push @orders_using_biblio, $myorder;
238
        push @orders_using_biblio, $myorder;
243
- 

Return to bug 23166