|
Lines 107-113
BEGIN {
Link Here
|
| 107 |
transferbook |
107 |
transferbook |
| 108 |
TooMany |
108 |
TooMany |
| 109 |
GetTransfersFromTo |
109 |
GetTransfersFromTo |
| 110 |
updateWrongTransfer |
|
|
| 111 |
CalcDateDue |
110 |
CalcDateDue |
| 112 |
CheckValidBarcode |
111 |
CheckValidBarcode |
| 113 |
IsBranchTransferAllowed |
112 |
IsBranchTransferAllowed |
|
Lines 3806-3827
sub SendCirculationAlert {
Link Here
|
| 3806 |
return; |
3805 |
return; |
| 3807 |
} |
3806 |
} |
| 3808 |
|
3807 |
|
| 3809 |
=head2 updateWrongTransfer |
|
|
| 3810 |
|
| 3811 |
$items = updateWrongTransfer($itemNumber,$borrowernumber,$waitingAtLibrary,$FromLibrary); |
| 3812 |
|
| 3813 |
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 |
| 3814 |
|
| 3815 |
=cut |
| 3816 |
|
| 3817 |
sub updateWrongTransfer { |
| 3818 |
my ( $itemNumber,$waitingAtLibrary,$FromLibrary ) = @_; |
| 3819 |
|
| 3820 |
my $transfer = Koha::Items->find($itemNumber)->get_transfer; |
| 3821 |
my $new_transfer = $transfer->remedy(); |
| 3822 |
return $new_transfer; |
| 3823 |
} |
| 3824 |
|
| 3825 |
=head2 CalcDateDue |
3808 |
=head2 CalcDateDue |
| 3826 |
|
3809 |
|
| 3827 |
$newdatedue = CalcDateDue($startdate,$itemtype,$branchcode,$borrower); |
3810 |
$newdatedue = CalcDateDue($startdate,$itemtype,$branchcode,$borrower); |
| 3828 |
- |
|
|