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