|
Lines 109-115
BEGIN {
Link Here
|
| 109 |
TooMany |
109 |
TooMany |
| 110 |
GetTransfers |
110 |
GetTransfers |
| 111 |
GetTransfersFromTo |
111 |
GetTransfersFromTo |
| 112 |
updateWrongTransfer |
|
|
| 113 |
CalcDateDue |
112 |
CalcDateDue |
| 114 |
CheckValidBarcode |
113 |
CheckValidBarcode |
| 115 |
IsBranchTransferAllowed |
114 |
IsBranchTransferAllowed |
|
Lines 3641-3662
sub SendCirculationAlert {
Link Here
|
| 3641 |
return; |
3640 |
return; |
| 3642 |
} |
3641 |
} |
| 3643 |
|
3642 |
|
| 3644 |
=head2 updateWrongTransfer |
|
|
| 3645 |
|
| 3646 |
$items = updateWrongTransfer($itemNumber,$borrowernumber,$waitingAtLibrary,$FromLibrary); |
| 3647 |
|
| 3648 |
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 |
| 3649 |
|
| 3650 |
=cut |
| 3651 |
|
| 3652 |
sub updateWrongTransfer { |
| 3653 |
my ( $itemNumber,$waitingAtLibrary,$FromLibrary ) = @_; |
| 3654 |
|
| 3655 |
my $transfer = Koha::Items->find($itemNumber)->get_transfer; |
| 3656 |
my $new_transfer = $transfer->remedy(); |
| 3657 |
return $new_transfer; |
| 3658 |
} |
| 3659 |
|
| 3660 |
=head2 CalcDateDue |
3643 |
=head2 CalcDateDue |
| 3661 |
|
3644 |
|
| 3662 |
$newdatedue = CalcDateDue($startdate,$itemtype,$branchcode,$borrower); |
3645 |
$newdatedue = CalcDateDue($startdate,$itemtype,$branchcode,$borrower); |
| 3663 |
- |
|
|