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