Lines 622-627
sub ModItemTransfer {
Link Here
|
622 |
# Remove the 'shelving cart' location status if it is being used. |
622 |
# Remove the 'shelving cart' location status if it is being used. |
623 |
CartToShelf( $itemnumber ) if ( C4::Context->preference("ReturnToShelvingCart") ); |
623 |
CartToShelf( $itemnumber ) if ( C4::Context->preference("ReturnToShelvingCart") ); |
624 |
|
624 |
|
|
|
625 |
$dbh->do("UPDATE branchtransfers SET datearrived = NOW(), comments = ? WHERE itemnumber = ?", undef, "Canceled, new transfer from $frombranch to $tobranch created", $itemnumber); |
626 |
|
625 |
#new entry in branchtransfers.... |
627 |
#new entry in branchtransfers.... |
626 |
my $sth = $dbh->prepare( |
628 |
my $sth = $dbh->prepare( |
627 |
"INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) |
629 |
"INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) |