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