Lines 23-29
use Modern::Perl;
Link Here
|
23 |
use CGI qw ( -utf8 ); |
23 |
use CGI qw ( -utf8 ); |
24 |
use C4::Auth qw( get_template_and_user ); |
24 |
use C4::Auth qw( get_template_and_user ); |
25 |
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc ); |
25 |
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc ); |
26 |
use C4::Circulation qw( GetBranchItemRule GetTransfers ); |
26 |
use C4::Circulation qw( GetBranchItemRule ); |
27 |
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest ); |
27 |
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest ); |
28 |
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio ); |
28 |
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio ); |
29 |
use C4::Items qw( GetHostItemsInfo GetItemsInfo ); |
29 |
use C4::Items qw( GetHostItemsInfo GetItemsInfo ); |
Lines 543-554
foreach my $biblioNum (@biblionumbers) {
Link Here
|
543 |
} |
543 |
} |
544 |
|
544 |
|
545 |
# Check of the transferred documents |
545 |
# Check of the transferred documents |
546 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = |
546 |
my $transfer = $item->get_transfer; |
547 |
GetTransfers($itemNum); |
547 |
if ( $transfer && $transfer->in_transit ) { |
548 |
if ( $transfertwhen && ($transfertwhen ne '') ) { |
548 |
$itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent), dateonly => 1 }); |
549 |
$itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen), dateonly => 1 }); |
549 |
$itemLoopIter->{transfertfrom} = $transfer->frombranch; |
550 |
$itemLoopIter->{transfertfrom} = $transfertfrom; |
550 |
$itemLoopIter->{transfertto} = $transfer->tobranch; |
551 |
$itemLoopIter->{transfertto} = $transfertto; |
|
|
552 |
$itemLoopIter->{nocancel} = 1; |
551 |
$itemLoopIter->{nocancel} = 1; |
553 |
} |
552 |
} |
554 |
|
553 |
|
555 |
- |
|
|