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 400-406
if ( $messages->{'WrongTransfer'} and not $messages->{'WasTransfered'}) {
Link Here
|
400 |
); |
400 |
); |
401 |
|
401 |
|
402 |
# Update the transfer to reflect the new item holdingbranch |
402 |
# Update the transfer to reflect the new item holdingbranch |
403 |
my $new_transfer = updateWrongTransfer($messages->{'WrongTransferItem'},$messages->{'WrongTransfer'}, $userenv_branch); |
403 |
my $transfer = Koha::Items->find($messages->{'WrongTransferItem'})->get_transfer; |
|
|
404 |
my $new_transfer = $transfer->remedy(); |
404 |
$template->param( |
405 |
$template->param( |
405 |
NewTransfer => $new_transfer->id |
406 |
NewTransfer => $new_transfer->id |
406 |
); |
407 |
); |
407 |
- |
|
|