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

(-)a/catalogue/ISBDdetail.pl (+32 lines)
Lines 47-52 use C4::Members; # to use GetMember Link Here
47
use C4::Branch;     # GetBranchDetail
47
use C4::Branch;     # GetBranchDetail
48
use C4::Serials;    # CountSubscriptionFromBiblionumber
48
use C4::Serials;    # CountSubscriptionFromBiblionumber
49
use C4::Search;		# enabled_staff_search_views
49
use C4::Search;		# enabled_staff_search_views
50
use C4::Acquisition qw(GetOrdersByBiblionumber);
51
50
52
51
#---- Internal function
53
#---- Internal function
52
54
Lines 112-118 $template->param ( Link Here
112
    searchid            => $query->param('searchid'),
114
    searchid            => $query->param('searchid'),
113
);
115
);
114
116
117
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
118
my @deletedorders_using_biblio;
119
my @orders_using_biblio;
120
my @baskets_orders;
121
my @baskets_deletedorders;
122
123
foreach my $myorder (@allorders_using_biblio) {
124
    my $basket = $myorder->{'basketno'};
125
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
126
        push @deletedorders_using_biblio, $myorder;
127
        unless (grep(/^$basket$/, @baskets_deletedorders)){
128
            push @baskets_deletedorders,$myorder->{'basketno'};
129
        }
130
    }
131
    else {
132
        push @orders_using_biblio, $myorder;
133
        unless (grep(/^$basket$/, @baskets_orders)){
134
            push @baskets_orders,$myorder->{'basketno'};
135
            }
136
    }
137
}
138
139
my $count_orders_using_biblio = scalar @orders_using_biblio ;
140
$template->param (countorders => $count_orders_using_biblio);
141
142
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
143
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
115
144
145
my $holds = C4::Reserves::GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
146
my $holdcount = scalar( @$holds );
147
$template->param( holdcount => scalar ( @$holds ) );
116
148
117
output_html_with_http_headers $query, $cookie, $template->output;
149
output_html_with_http_headers $query, $cookie, $template->output;
118
150
(-)a/catalogue/MARCdetail.pl (+31 lines)
Lines 336-340 $template->param ( Link Here
336
    searchid            => $query->param('searchid'),
336
    searchid            => $query->param('searchid'),
337
);
337
);
338
338
339
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
340
my @deletedorders_using_biblio;
341
my @orders_using_biblio;
342
my @baskets_orders;
343
my @baskets_deletedorders;
344
345
foreach my $myorder (@allorders_using_biblio) {
346
    my $basket = $myorder->{'basketno'};
347
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
348
        push @deletedorders_using_biblio, $myorder;
349
        unless (grep(/^$basket$/, @baskets_deletedorders)){
350
            push @baskets_deletedorders,$myorder->{'basketno'};
351
        }
352
    }
353
    else {
354
        push @orders_using_biblio, $myorder;
355
        unless (grep(/^$basket$/, @baskets_orders)){
356
            push @baskets_orders,$myorder->{'basketno'};
357
            }
358
    }
359
}
360
361
my $count_orders_using_biblio = scalar @orders_using_biblio ;
362
$template->param (countorders => $count_orders_using_biblio);
363
364
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
365
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
366
367
my $holds = C4::Reserves::GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
368
my $holdcount = scalar( @$holds );
369
$template->param( holdcount => scalar ( @$holds ) );
339
370
340
output_html_with_http_headers $query, $cookie, $template->output;
371
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/catalogue/imageviewer.pl (+32 lines)
Lines 27-32 use C4::Items; Link Here
27
use C4::Output;
27
use C4::Output;
28
use C4::Images;
28
use C4::Images;
29
use C4::Search;
29
use C4::Search;
30
use C4::Acquisition qw(GetOrdersByBiblionumber);
30
31
31
my $query = new CGI;
32
my $query = new CGI;
32
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
33
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Lines 78-82 $template->{VARS}->{'norequests'} = $norequests; Link Here
78
$template->param(C4::Search::enabled_staff_search_views);
79
$template->param(C4::Search::enabled_staff_search_views);
79
$template->{VARS}->{'biblio'} = $biblio;
80
$template->{VARS}->{'biblio'} = $biblio;
80
81
82
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
83
my @deletedorders_using_biblio;
84
my @orders_using_biblio;
85
my @baskets_orders;
86
my @baskets_deletedorders;
87
88
foreach my $myorder (@allorders_using_biblio) {
89
    my $basket = $myorder->{'basketno'};
90
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
91
        push @deletedorders_using_biblio, $myorder;
92
        unless (grep(/^$basket$/, @baskets_deletedorders)){
93
            push @baskets_deletedorders,$myorder->{'basketno'};
94
        }
95
    }
96
    else {
97
        push @orders_using_biblio, $myorder;
98
        unless (grep(/^$basket$/, @baskets_orders)){
99
            push @baskets_orders,$myorder->{'basketno'};
100
            }
101
    }
102
}
103
104
my $count_orders_using_biblio = scalar @orders_using_biblio ;
105
$template->param (countorders => $count_orders_using_biblio);
106
107
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
108
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
109
110
my $holds= C4::Reserves::GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
111
my $holdcount = scalar( @$holds );
112
$template->param( holdcount => scalar ( @$holds ) );
81
113
82
output_html_with_http_headers $query, $cookie, $template->output;
114
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/catalogue/labeledMARCdetail.pl (+32 lines)
Lines 28-33 use C4::Biblio; Link Here
28
use C4::Items;
28
use C4::Items;
29
use C4::Members; # to use GetMember
29
use C4::Members; # to use GetMember
30
use C4::Search;		# enabled_staff_search_views
30
use C4::Search;		# enabled_staff_search_views
31
use C4::Acquisition qw(GetOrdersByBiblionumber);
31
32
32
my $query        = new CGI;
33
my $query        = new CGI;
33
my $dbh          = C4::Context->dbh;
34
my $dbh          = C4::Context->dbh;
Lines 137-141 $template->param ( Link Here
137
    searchid            => $query->param('searchid'),
138
    searchid            => $query->param('searchid'),
138
);
139
);
139
140
141
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
142
my @deletedorders_using_biblio;
143
my @orders_using_biblio;
144
my @baskets_orders;
145
my @baskets_deletedorders;
146
147
foreach my $myorder (@allorders_using_biblio) {
148
    my $basket = $myorder->{'basketno'};
149
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
150
        push @deletedorders_using_biblio, $myorder;
151
        unless (grep(/^$basket$/, @baskets_deletedorders)){
152
            push @baskets_deletedorders,$myorder->{'basketno'};
153
        }
154
    }
155
    else {
156
        push @orders_using_biblio, $myorder;
157
        unless (grep(/^$basket$/, @baskets_orders)){
158
            push @baskets_orders,$myorder->{'basketno'};
159
            }
160
    }
161
}
162
163
my $count_orders_using_biblio = scalar @orders_using_biblio ;
164
$template->param (countorders => $count_orders_using_biblio);
165
166
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
167
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
168
169
my $holds= C4::Reserves::GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
170
my $holdcount = scalar( @$holds );
171
$template->param( holdcount => scalar ( @$holds ) );
140
172
141
output_html_with_http_headers $query, $cookie, $template->output;
173
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/catalogue/moredetail.pl (-1 / +31 lines)
Lines 35-40 use C4::Circulation; # to use itemissues Link Here
35
use C4::Members; # to use GetMember
35
use C4::Members; # to use GetMember
36
use C4::Search;		# enabled_staff_search_views
36
use C4::Search;		# enabled_staff_search_views
37
use C4::Members qw/GetHideLostItemsPreference/;
37
use C4::Members qw/GetHideLostItemsPreference/;
38
use C4::Reserves qw(GetReservesFromBiblionumber);
38
use Koha::DateUtils;
39
use Koha::DateUtils;
39
40
40
my $query=new CGI;
41
my $query=new CGI;
Lines 215-221 $template->param( Link Here
215
$template->param(ONLY_ONE => 1) if ( $itemnumber && $showncount != @items );
216
$template->param(ONLY_ONE => 1) if ( $itemnumber && $showncount != @items );
216
$template->{'VARS'}->{'searchid'} = $query->param('searchid');
217
$template->{'VARS'}->{'searchid'} = $query->param('searchid');
217
218
219
my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
220
my @deletedorders_using_biblio;
221
my @orders_using_biblio;
222
my @baskets_orders;
223
my @baskets_deletedorders;
224
225
foreach my $myorder (@allorders_using_biblio) {
226
    my $basket = $myorder->{'basketno'};
227
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
228
        push @deletedorders_using_biblio, $myorder;
229
        unless (grep(/^$basket$/, @baskets_deletedorders)){
230
            push @baskets_deletedorders,$myorder->{'basketno'};
231
        }
232
    }
233
    else {
234
        push @orders_using_biblio, $myorder;
235
        unless (grep(/^$basket$/, @baskets_orders)){
236
            push @baskets_orders,$myorder->{'basketno'};
237
            }
238
    }
239
}
240
241
my $count_orders_using_biblio = scalar @orders_using_biblio ;
242
$template->param (countorders => $count_orders_using_biblio);
243
244
my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
245
$template->param (countdeletedorders => $count_deletedorders_using_biblio);
218
246
247
my $holds = GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
248
my $holdcount = scalar( @$holds );
249
$template->param( holdcount => scalar ( @$holds ) );
219
250
220
output_html_with_http_headers $query, $cookie, $template->output;
251
output_html_with_http_headers $query, $cookie, $template->output;
221
252
222
- 

Return to bug 11829