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 |
- |
|
|