|
Lines 140-156
sub do_checkout {
Link Here
|
| 140 |
# . "w/ \$borrower: " . Dumper($borrower) |
140 |
# . "w/ \$borrower: " . Dumper($borrower) |
| 141 |
. "w/ C4::Context->userenv: " . Dumper(C4::Context->userenv); |
141 |
. "w/ C4::Context->userenv: " . Dumper(C4::Context->userenv); |
| 142 |
my $issue = AddIssue( $borrower, $barcode, $overridden_duedate, 0 ); |
142 |
my $issue = AddIssue( $borrower, $barcode, $overridden_duedate, 0 ); |
| 143 |
my $due_dt = dt_from_string( $issue->date_due() ); |
143 |
$self->{due} = duedatefromissue($issue, $itemnumber); |
| 144 |
if ($due_dt) { |
|
|
| 145 |
$self->{due} = $due_dt->clone(); |
| 146 |
} else { |
| 147 |
$self->{due} = undef; |
| 148 |
} |
| 149 |
|
144 |
|
| 150 |
#$self->{item}->due_date($due); |
145 |
#$self->{item}->due_date($due); |
| 151 |
$self->ok(1); |
146 |
$self->ok(1); |
| 152 |
return $self; |
147 |
return $self; |
| 153 |
} |
148 |
} |
| 154 |
|
149 |
|
|
|
150 |
sub duedatefromissue { |
| 151 |
my ($iss, $itemnum) = @_; |
| 152 |
my $due_dt; |
| 153 |
if (defined $iss ) { |
| 154 |
$due_dt = dt_from_string( $iss->date_due() ); |
| 155 |
} # renew from AddIssue ?? |
| 156 |
else { |
| 157 |
# need to reread the issue to get due date |
| 158 |
$iss = C4::Circulation::GetItemIssue($itemnum); |
| 159 |
if ($iss && $iss->{date_due} ) { |
| 160 |
$due_dt = dt_from_string( $iss->{date_due} ); |
| 161 |
} |
| 162 |
} |
| 163 |
return $due_dt; |
| 164 |
} |
| 165 |
|
| 155 |
1; |
166 |
1; |
| 156 |
__END__ |
167 |
__END__ |