|
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 |
- |
|
|