Lines 95-100
BEGIN {
Link Here
|
95 |
&AddReserve |
95 |
&AddReserve |
96 |
|
96 |
|
97 |
&GetReserve |
97 |
&GetReserve |
|
|
98 |
&GetOldReserve |
98 |
&GetReservesFromItemnumber |
99 |
&GetReservesFromItemnumber |
99 |
&GetReservesFromBiblionumber |
100 |
&GetReservesFromBiblionumber |
100 |
&GetReservesFromBorrowernumber |
101 |
&GetReservesFromBorrowernumber |
Lines 252-258
sub AddReserve {
Link Here
|
252 |
|
253 |
|
253 |
$res = GetReserve( $reserve_id ); |
254 |
$res = GetReserve( $reserve_id ); |
254 |
|
255 |
|
255 |
Return the current reserve or the old reserve. |
256 |
Return the current reserve. |
256 |
|
257 |
|
257 |
=cut |
258 |
=cut |
258 |
|
259 |
|
Lines 263-277
sub GetReserve {
Link Here
|
263 |
my $query = "SELECT * FROM reserves WHERE reserve_id = ?"; |
264 |
my $query = "SELECT * FROM reserves WHERE reserve_id = ?"; |
264 |
my $sth = $dbh->prepare( $query ); |
265 |
my $sth = $dbh->prepare( $query ); |
265 |
$sth->execute( $reserve_id ); |
266 |
$sth->execute( $reserve_id ); |
266 |
my $res = $sth->fetchrow_hashref(); |
267 |
return $sth->fetchrow_hashref(); |
|
|
268 |
} |
267 |
|
269 |
|
268 |
unless ( $res ) { |
270 |
=head2 GetOldReserve |
269 |
$res = $dbh->selectrow_hashref(q| |
271 |
|
270 |
SELECT * FROM old_reserves WHERE reserve_id = ? |
272 |
$res = GetOldReserve( $reserve_id ); |
271 |
|, {}, $reserve_id); |
273 |
|
272 |
} |
274 |
Return a old reserve. |
|
|
275 |
|
276 |
=cut |
277 |
|
278 |
sub GetOldReserve { |
279 |
my ($reserve_id) = @_; |
273 |
|
280 |
|
274 |
return $res; |
281 |
my $dbh = C4::Context->dbh; |
|
|
282 |
return $dbh->selectrow_hashref(q| |
283 |
SELECT * FROM old_reserves WHERE reserve_id = ? |
284 |
|, {}, $reserve_id); |
275 |
} |
285 |
} |
276 |
|
286 |
|
277 |
=head2 GetReservesFromBiblionumber |
287 |
=head2 GetReservesFromBiblionumber |
Lines 1618-1623
sub _FixPriority {
Link Here
|
1618 |
|
1628 |
|
1619 |
my $res = GetReserve( $reserve_id ); |
1629 |
my $res = GetReserve( $reserve_id ); |
1620 |
|
1630 |
|
|
|
1631 |
$res = GetOldReserve( $reserve_id ) unless $res; |
1632 |
|
1621 |
if ( $rank eq "del" ) { |
1633 |
if ( $rank eq "del" ) { |
1622 |
CancelReserve({ reserve_id => $reserve_id }); |
1634 |
CancelReserve({ reserve_id => $reserve_id }); |
1623 |
} |
1635 |
} |