|
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 |
- |
|
|