Lines 129-143
sub do_checkout {
Link Here
|
129 |
$self->ok(0); |
129 |
$self->ok(0); |
130 |
return $self; |
130 |
return $self; |
131 |
} |
131 |
} |
132 |
# Fill any reserves the patron had on the item. |
|
|
133 |
# TODO: this logic should be pulled internal to AddIssue for all Koha. |
134 |
$debug and warn "pending_queue: " . (@$pending) ? Dumper($pending) : '[]'; |
135 |
foreach (grep {$_->{borrowernumber} eq $self->{patron}->{borrowernumber}} @$pending) { |
136 |
$debug and warn "Filling reserve (borrowernumber,biblionumber,reservedate): " |
137 |
. sprintf("(%s,%s,%s)\n",$_->{borrowernumber},$_->{biblionumber},$_->{reservedate}); |
138 |
ModReserveFill($_); |
139 |
# TODO: adjust representation in $self->item |
140 |
} |
141 |
# can issue |
132 |
# can issue |
142 |
$debug and warn "do_checkout: calling AddIssue(\$borrower,$barcode, $overridden_duedate, 0)\n" |
133 |
$debug and warn "do_checkout: calling AddIssue(\$borrower,$barcode, $overridden_duedate, 0)\n" |
143 |
# . "w/ \$borrower: " . Dumper($borrower) |
134 |
# . "w/ \$borrower: " . Dumper($borrower) |
144 |
- |
|
|