Lines 31-38
Link Here
|
31 |
# |
31 |
# |
32 |
# FIXME: inputfocus not really used in TMPL |
32 |
# FIXME: inputfocus not really used in TMPL |
33 |
|
33 |
|
34 |
use strict; |
34 |
use Modern::Perl; |
35 |
use warnings; |
|
|
36 |
|
35 |
|
37 |
use CGI qw ( -utf8 ); |
36 |
use CGI qw ( -utf8 ); |
38 |
use Digest::MD5 qw(md5_base64); |
37 |
use Digest::MD5 qw(md5_base64); |
Lines 142-148
elsif ( $op eq "checkout" ) {
Link Here
|
142 |
$barcode, |
141 |
$barcode, |
143 |
undef, |
142 |
undef, |
144 |
0, |
143 |
0, |
145 |
C4::Context->preference("AllowItemsOnHoldCheckout") |
144 |
C4::Context->preference("AllowItemsOnHoldCheckoutSCO") |
146 |
); |
145 |
); |
147 |
} |
146 |
} |
148 |
$confirm_required = scalar keys %$needconfirm; |
147 |
$confirm_required = scalar keys %$needconfirm; |
Lines 231-237
if ($borrower->{cardnumber}) {
Link Here
|
231 |
$it->{'barcode'}, |
230 |
$it->{'barcode'}, |
232 |
undef, |
231 |
undef, |
233 |
0, |
232 |
0, |
234 |
C4::Context->preference("AllowItemsOnHoldCheckout") |
233 |
C4::Context->preference("AllowItemsOnHoldCheckoutSCO") |
235 |
); |
234 |
); |
236 |
$it->{'norenew'} = 1 if $renewokay->{'NO_MORE_RENEWALS'}; |
235 |
$it->{'norenew'} = 1 if $renewokay->{'NO_MORE_RENEWALS'}; |
237 |
$it->{date_due} = $it->{date_due_sql}; |
236 |
$it->{date_due} = $it->{date_due_sql}; |
238 |
- |
|
|