Lines 104-110
BEGIN {
Link Here
|
104 |
@EXPORT = qw( |
104 |
@EXPORT = qw( |
105 |
&AddReserve |
105 |
&AddReserve |
106 |
|
106 |
|
107 |
&GetReserve |
|
|
108 |
&GetReservesForBranch |
107 |
&GetReservesForBranch |
109 |
&GetReserveStatus |
108 |
&GetReserveStatus |
110 |
|
109 |
|
Lines 257-281
sub AddReserve {
Link Here
|
257 |
return $reserve_id; |
256 |
return $reserve_id; |
258 |
} |
257 |
} |
259 |
|
258 |
|
260 |
=head2 GetReserve |
|
|
261 |
|
262 |
$res = GetReserve( $reserve_id ); |
263 |
|
264 |
Return the current reserve. |
265 |
|
266 |
=cut |
267 |
|
268 |
sub GetReserve { |
269 |
my ($reserve_id) = @_; |
270 |
|
271 |
my $dbh = C4::Context->dbh; |
272 |
|
273 |
my $query = "SELECT * FROM reserves WHERE reserve_id = ?"; |
274 |
my $sth = $dbh->prepare( $query ); |
275 |
$sth->execute( $reserve_id ); |
276 |
return $sth->fetchrow_hashref(); |
277 |
} |
278 |
|
279 |
=head2 CanBookBeReserved |
259 |
=head2 CanBookBeReserved |
280 |
|
260 |
|
281 |
$canReserve = &CanBookBeReserved($borrowernumber, $biblionumber) |
261 |
$canReserve = &CanBookBeReserved($borrowernumber, $biblionumber) |
282 |
- |
|
|