Lines 28-36
use C4::Biblio qw(
Link Here
|
28 |
GetMarcUrls |
28 |
GetMarcUrls |
29 |
); |
29 |
); |
30 |
use C4::Items qw( GetHiddenItemnumbers GetItemsInfo ); |
30 |
use C4::Items qw( GetHiddenItemnumbers GetItemsInfo ); |
31 |
use C4::Circulation qw( GetTransfers ); |
|
|
32 |
use C4::Auth qw( get_template_and_user ); |
31 |
use C4::Auth qw( get_template_and_user ); |
33 |
use C4::Output qw( output_html_with_http_headers ); |
32 |
use C4::Output qw( output_html_with_http_headers ); |
|
|
33 |
use Koha::DateUtils qw( output_pref ); |
34 |
use Koha::RecordProcessor; |
34 |
use Koha::RecordProcessor; |
35 |
use Koha::CsvProfiles; |
35 |
use Koha::CsvProfiles; |
36 |
use Koha::AuthorisedValues; |
36 |
use Koha::AuthorisedValues; |
Lines 142-152
foreach my $biblionumber ( @bibs ) {
Link Here
|
142 |
if ($itm->{'location'}){ |
142 |
if ($itm->{'location'}){ |
143 |
$itm->{'location_opac'} = $shelflocations->{$itm->{'location'} }; |
143 |
$itm->{'location_opac'} = $shelflocations->{$itm->{'location'} }; |
144 |
} |
144 |
} |
145 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber}); |
145 |
my $item_object = Koha::Items->find($itm->{itemnumber}); |
146 |
if ( defined( $transfertwhen ) && $transfertwhen ne '' ) { |
146 |
my $transfer = $item_object->get_transfer; |
147 |
$itm->{transfertwhen} = $transfertwhen; |
147 |
if ( $transfer && $transfer->in_transit ) { |
148 |
$itm->{transfertfrom} = $transfertfrom; |
148 |
$itm->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent), dateonly => 1 }); |
149 |
$itm->{transfertto} = $transfertto; |
149 |
$itm->{transfertfrom} = $transfer->frombranch; |
|
|
150 |
$itm->{transfertto} = $transfer->tobranch; |
150 |
} |
151 |
} |
151 |
} |
152 |
} |
152 |
$num++; |
153 |
$num++; |
153 |
- |
|
|