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