Lines 1574-1579
sub AddReturn {
Link Here
|
1574 |
# check if we have a transfer for this document |
1574 |
# check if we have a transfer for this document |
1575 |
my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} ); |
1575 |
my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} ); |
1576 |
|
1576 |
|
|
|
1577 |
# find reserves..... |
1578 |
# if we don't have a reserve with the status W, we launch the Checkreserves routine |
1579 |
my ($resfound, $resrec) = C4::Reserves::CheckReserves( $item->{'itemnumber'} ); |
1580 |
if ($resfound) { |
1581 |
$resrec->{'ResFound'} = $resfound; |
1582 |
$messages->{'ResFound'} = $resrec; |
1583 |
} |
1584 |
|
1577 |
# if we have a transfer to do, we update the line of transfers with the datearrived |
1585 |
# if we have a transfer to do, we update the line of transfers with the datearrived |
1578 |
if ($datesent) { |
1586 |
if ($datesent) { |
1579 |
if ( $tobranch eq $branch ) { |
1587 |
if ( $tobranch eq $branch ) { |
Lines 1583-1589
sub AddReturn {
Link Here
|
1583 |
$sth->execute( $item->{'itemnumber'} ); |
1591 |
$sth->execute( $item->{'itemnumber'} ); |
1584 |
# if we have a reservation with valid transfer, we can set it's status to 'W' |
1592 |
# if we have a reservation with valid transfer, we can set it's status to 'W' |
1585 |
C4::Reserves::ModReserveStatus($item->{'itemnumber'}, 'W'); |
1593 |
C4::Reserves::ModReserveStatus($item->{'itemnumber'}, 'W'); |
1586 |
} else { |
1594 |
} elsif ( !($resrec && $resrec->{branchcode} eq $tobranch) ) { |
|
|
1595 |
# Do not raise WrongTransfer if it is transrerring to reserve branch |
1587 |
$messages->{'WrongTransfer'} = $tobranch; |
1596 |
$messages->{'WrongTransfer'} = $tobranch; |
1588 |
$messages->{'WrongTransferItem'} = $item->{'itemnumber'}; |
1597 |
$messages->{'WrongTransferItem'} = $item->{'itemnumber'}; |
1589 |
} |
1598 |
} |
Lines 1606-1619
sub AddReturn {
Link Here
|
1606 |
$messages->{'Debarred'} = $debardate if ($debardate); |
1615 |
$messages->{'Debarred'} = $debardate if ($debardate); |
1607 |
} |
1616 |
} |
1608 |
|
1617 |
|
1609 |
# find reserves..... |
|
|
1610 |
# if we don't have a reserve with the status W, we launch the Checkreserves routine |
1611 |
my ($resfound, $resrec, undef) = C4::Reserves::CheckReserves( $item->{'itemnumber'} ); |
1612 |
if ($resfound) { |
1613 |
$resrec->{'ResFound'} = $resfound; |
1614 |
$messages->{'ResFound'} = $resrec; |
1615 |
} |
1616 |
|
1617 |
# update stats? |
1618 |
# update stats? |
1618 |
# Record the fact that this book was returned. |
1619 |
# Record the fact that this book was returned. |
1619 |
UpdateStats( |
1620 |
UpdateStats( |
1620 |
- |
|
|