|
Lines 114-120
BEGIN {
Link Here
|
| 114 |
&transferbook |
114 |
&transferbook |
| 115 |
&GetTransfers |
115 |
&GetTransfers |
| 116 |
&GetTransfersFromTo |
116 |
&GetTransfersFromTo |
| 117 |
&updateWrongTransfer |
|
|
| 118 |
&DeleteTransfer |
117 |
&DeleteTransfer |
| 119 |
&IsBranchTransferAllowed |
118 |
&IsBranchTransferAllowed |
| 120 |
&CreateBranchTransferLimit |
119 |
&CreateBranchTransferLimit |
|
Lines 3523-3553
sub SendCirculationAlert {
Link Here
|
| 3523 |
return; |
3522 |
return; |
| 3524 |
} |
3523 |
} |
| 3525 |
|
3524 |
|
| 3526 |
=head2 updateWrongTransfer |
|
|
| 3527 |
|
| 3528 |
$items = updateWrongTransfer($itemNumber,$borrowernumber,$waitingAtLibrary,$FromLibrary); |
| 3529 |
|
| 3530 |
This function validate the line of brachtransfer but with the wrong destination (mistake from a librarian ...), and create a new line in branchtransfer from the actual library to the original library of reservation |
| 3531 |
|
| 3532 |
=cut |
| 3533 |
|
| 3534 |
sub updateWrongTransfer { |
| 3535 |
my ( $itemNumber,$waitingAtLibrary,$FromLibrary ) = @_; |
| 3536 |
my $dbh = C4::Context->dbh; |
| 3537 |
# first step validate the actual line of transfert . |
| 3538 |
my $sth = |
| 3539 |
$dbh->prepare( |
| 3540 |
"update branchtransfers set datearrived = now(),tobranch=?,comments='wrongtransfer' where itemnumber= ? AND datearrived IS NULL" |
| 3541 |
); |
| 3542 |
$sth->execute($FromLibrary,$itemNumber); |
| 3543 |
|
| 3544 |
# second step create a new line of branchtransfer to the right location . |
| 3545 |
ModItemTransfer($itemNumber, $FromLibrary, $waitingAtLibrary); |
| 3546 |
|
| 3547 |
#third step changing holdingbranch of item |
| 3548 |
UpdateHoldingbranch($FromLibrary,$itemNumber); |
| 3549 |
} |
| 3550 |
|
| 3551 |
=head2 UpdateHoldingbranch |
3525 |
=head2 UpdateHoldingbranch |
| 3552 |
|
3526 |
|
| 3553 |
$items = UpdateHoldingbranch($branch,$itmenumber); |
3527 |
$items = UpdateHoldingbranch($branch,$itmenumber); |