|
Lines 375-384
sub transferbook {
Link Here
|
| 375 |
# That'll save a database query. |
375 |
# That'll save a database query. |
| 376 |
my ( $resfound, $resrec, undef ) = |
376 |
my ( $resfound, $resrec, undef ) = |
| 377 |
CheckReserves( $itemnumber ); |
377 |
CheckReserves( $itemnumber ); |
| 378 |
if ( $resfound and not $ignoreRs ) { |
378 |
if ( $resfound ) { |
| 379 |
$resrec->{'ResFound'} = $resfound; |
379 |
$resrec->{'ResFound'} = $resfound; |
| 380 |
$messages->{'ResFound'} = $resrec; |
380 |
$messages->{'ResFound'} = $resrec; |
| 381 |
$dotransfer = 1; |
381 |
$dotransfer = 0 unless $ignoreRs; |
| 382 |
} |
382 |
} |
| 383 |
|
383 |
|
| 384 |
#actually do the transfer.... |
384 |
#actually do the transfer.... |