Lines 24-30
use Modern::Perl;
Link Here
|
24 |
use CGI qw ( -utf8 ); |
24 |
use CGI qw ( -utf8 ); |
25 |
use C4::Auth qw( get_template_and_user ); |
25 |
use C4::Auth qw( get_template_and_user ); |
26 |
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc ); |
26 |
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc ); |
27 |
use C4::Circulation qw( GetBranchItemRule GetTransfers ); |
27 |
use C4::Circulation qw( GetBranchItemRule ); |
28 |
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest ); |
28 |
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest ); |
29 |
use C4::Biblio qw( GetBiblioData GetFrameworkCode ); |
29 |
use C4::Biblio qw( GetBiblioData GetFrameworkCode ); |
30 |
use C4::Output qw( output_html_with_http_headers ); |
30 |
use C4::Output qw( output_html_with_http_headers ); |
Lines 481-492
foreach my $biblioNum (@biblionumbers) {
Link Here
|
481 |
$item_info->{checkout} = $item->checkout; |
481 |
$item_info->{checkout} = $item->checkout; |
482 |
|
482 |
|
483 |
# Check of the transferred documents |
483 |
# Check of the transferred documents |
484 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = |
484 |
my $transfer = $item->get_transfer; |
485 |
GetTransfers($item->itemnumber); |
485 |
if ( $transfer && $transfer->in_transit ) { |
486 |
if ( $transfertwhen && ($transfertwhen ne '') ) { |
486 |
$item_info->{transfertwhen} = $transfer->datesent; |
487 |
$item_info->{transfertwhen} = $transfertwhen; |
487 |
$item_info->{transfertfrom} = $transfer->frombranch; |
488 |
$item_info->{transfertfrom} = $transfertfrom; |
488 |
$item_info->{transfertto} = $transfer->tobranch; |
489 |
$item_info->{transfertto} = $transfertto; |
|
|
490 |
$item_info->{nocancel} = 1; |
489 |
$item_info->{nocancel} = 1; |
491 |
} |
490 |
} |
492 |
|
491 |
|
493 |
- |
|
|