Lines 1833-1839
sub AddReturn {
Link Here
|
1833 |
|
1833 |
|
1834 |
# find reserves..... |
1834 |
# find reserves..... |
1835 |
# if we don't have a reserve with the status W, we launch the Checkreserves routine |
1835 |
# if we don't have a reserve with the status W, we launch the Checkreserves routine |
1836 |
my ($resfound, $resrec, undef) = C4::Reserves::CheckReserves( $item->{'itemnumber'} ) unless ( $item->{'wthdrawn'} ); |
1836 |
my ( $resfound, $resrec ); |
|
|
1837 |
( $resfound, $resrec ) = C4::Reserves::CheckReserves( $item->{'itemnumber'} ) unless ( $item->{'wthdrawn'} ); |
1837 |
if ($resfound) { |
1838 |
if ($resfound) { |
1838 |
$resrec->{'ResFound'} = $resfound; |
1839 |
$resrec->{'ResFound'} = $resfound; |
1839 |
$messages->{'ResFound'} = $resrec; |
1840 |
$messages->{'ResFound'} = $resrec; |
1840 |
- |
|
|