View | Details | Raw Unified | Return to bug 19057
Collapse All | Expand All

(-)a/C4/Reserves.pm (-21 lines)
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
- 

Return to bug 19057