|
Lines 10-16
use C4::SIP::ILS::Transaction;
Link Here
|
| 10 |
|
10 |
|
| 11 |
use C4::Reserves; # AddReserve |
11 |
use C4::Reserves; # AddReserve |
| 12 |
use C4::Members; # GetMember |
12 |
use C4::Members; # GetMember |
| 13 |
use C4::Biblio; # GetBiblioFromItemNumber GetBiblioItemByBiblioNumber |
13 |
use C4::Biblio; # GetBiblioFromItemNumber |
| 14 |
use parent qw(C4::SIP::ILS::Transaction); |
14 |
use parent qw(C4::SIP::ILS::Transaction); |
| 15 |
|
15 |
|
| 16 |
|
16 |
|
|
Lines 62-68
sub do_hold {
Link Here
|
| 62 |
return $self; |
62 |
return $self; |
| 63 |
} |
63 |
} |
| 64 |
my $bibno = $bib->{biblionumber}; |
64 |
my $bibno = $bib->{biblionumber}; |
| 65 |
AddReserve( $branch, $borrower->{borrowernumber}, $bibno, GetBiblioItemByBiblioNumber($bibno) ); |
65 |
AddReserve( $branch, $borrower->{borrowernumber}, $bibno ); |
| 66 |
|
66 |
|
| 67 |
# unfortunately no meaningful return value |
67 |
# unfortunately no meaningful return value |
| 68 |
$self->ok(1); |
68 |
$self->ok(1); |