|
Lines 15-21
use CGI qw ( -utf8 );
Link Here
|
| 15 |
use C4::SIP::ILS::Transaction; |
15 |
use C4::SIP::ILS::Transaction; |
| 16 |
|
16 |
|
| 17 |
use C4::Context; |
17 |
use C4::Context; |
| 18 |
use C4::Circulation qw( AddIssue GetIssuingCharges CanBookBeIssued ); |
18 |
use C4::Circulation qw( AddIssue GetIssuingCharges CanBookBeIssued ProcessOfflineIssue ); |
| 19 |
use C4::Members; |
19 |
use C4::Members; |
| 20 |
use Koha::DateUtils qw( dt_from_string ); |
20 |
use Koha::DateUtils qw( dt_from_string ); |
| 21 |
|
21 |
|
|
Lines 127-145
sub do_checkout {
Link Here
|
| 127 |
} |
127 |
} |
| 128 |
} |
128 |
} |
| 129 |
|
129 |
|
| 130 |
if ( $no_block_due_date ) { |
130 |
if ( $noerror == 0 && !$no_block_due_date ) { |
| 131 |
$overridden_duedate = $no_block_due_date; |
|
|
| 132 |
$noerror = 1; |
| 133 |
} |
| 134 |
|
| 135 |
unless ($noerror) { |
| 136 |
$self->ok(0); |
131 |
$self->ok(0); |
| 137 |
return $self; |
132 |
return $self; |
| 138 |
} |
133 |
} |
| 139 |
|
134 |
|
| 140 |
# can issue |
135 |
if ( $no_block_due_date ) { |
| 141 |
my $issue = AddIssue( $patron->unblessed, $barcode, $overridden_duedate, 0 ); |
136 |
$overridden_duedate = $no_block_due_date; |
| 142 |
$self->{due} = $self->duedatefromissue($issue, $itemnumber); |
137 |
ProcessOfflineIssue({ |
|
|
138 |
cardnumber => $patron->cardnumber, |
| 139 |
barcode => $barcode, |
| 140 |
timestamp => $no_block_due_date, |
| 141 |
}); |
| 142 |
} else { |
| 143 |
# can issue |
| 144 |
my $issue = AddIssue( $patron->unblessed, $barcode, $overridden_duedate, 0 ); |
| 145 |
$self->{due} = $self->duedatefromissue($issue, $itemnumber); |
| 146 |
} |
| 143 |
|
147 |
|
| 144 |
$self->ok(1); |
148 |
$self->ok(1); |
| 145 |
return $self; |
149 |
return $self; |
| 146 |
- |
|
|