|
Lines 35-41
use CGI qw ( -utf8 );
Link Here
|
| 35 |
use DateTime; |
35 |
use DateTime; |
| 36 |
|
36 |
|
| 37 |
use C4::Auth qw( get_template_and_user get_session haspermission ); |
37 |
use C4::Auth qw( get_template_and_user get_session haspermission ); |
| 38 |
use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn updateWrongTransfer LostItem ); |
38 |
use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn LostItem ); |
| 39 |
use C4::Context; |
39 |
use C4::Context; |
| 40 |
use C4::Items qw( ModItemTransfer ); |
40 |
use C4::Items qw( ModItemTransfer ); |
| 41 |
use C4::Members::Messaging; |
41 |
use C4::Members::Messaging; |
|
Lines 443-449
if ( $messages->{'WrongTransfer'} and not $messages->{'WasTransfered'}) {
Link Here
|
| 443 |
); |
443 |
); |
| 444 |
|
444 |
|
| 445 |
# Update the transfer to reflect the new item holdingbranch |
445 |
# Update the transfer to reflect the new item holdingbranch |
| 446 |
my $new_transfer = updateWrongTransfer($messages->{'WrongTransferItem'},$messages->{'WrongTransfer'}, $userenv_branch); |
446 |
my $transfer = Koha::Items->find($messages->{'WrongTransferItem'})->get_transfer; |
|
|
447 |
my $new_transfer = $transfer->remedy(); |
| 447 |
$template->param( |
448 |
$template->param( |
| 448 |
NewTransfer => $new_transfer->id |
449 |
NewTransfer => $new_transfer->id |
| 449 |
); |
450 |
); |
| 450 |
- |
|
|