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