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