Lines 26-38
use C4::Biblio qw(
Link Here
|
26 |
GetMarcSubjects |
26 |
GetMarcSubjects |
27 |
GetMarcUrls |
27 |
GetMarcUrls |
28 |
); |
28 |
); |
29 |
use C4::Circulation qw( GetTransfers ); |
|
|
30 |
use C4::Auth qw( get_template_and_user ); |
29 |
use C4::Auth qw( get_template_and_user ); |
31 |
use C4::Output qw( output_html_with_http_headers ); |
30 |
use C4::Output qw( output_html_with_http_headers ); |
32 |
use Koha::RecordProcessor; |
31 |
use Koha::RecordProcessor; |
33 |
use Koha::CsvProfiles; |
32 |
use Koha::CsvProfiles; |
34 |
use Koha::AuthorisedValues; |
33 |
use Koha::AuthorisedValues; |
35 |
use Koha::Biblios; |
34 |
use Koha::Biblios; |
|
|
35 |
use Koha::Items; |
36 |
|
36 |
|
37 |
my $query = CGI->new; |
37 |
my $query = CGI->new; |
38 |
|
38 |
|
Lines 124-134
foreach my $biblionumber ( @bibs ) {
Link Here
|
124 |
if ($itm->{'location'}){ |
124 |
if ($itm->{'location'}){ |
125 |
$itm->{'location_opac'} = $shelflocations->{$itm->{'location'} }; |
125 |
$itm->{'location_opac'} = $shelflocations->{$itm->{'location'} }; |
126 |
} |
126 |
} |
127 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber}); |
127 |
my $item_object = Koha::Items->find($itm->{itemnumber}); |
128 |
if ( defined( $transfertwhen ) && $transfertwhen ne '' ) { |
128 |
my $transfer = $item_object->get_transfer; |
129 |
$itm->{transfertwhen} = $transfertwhen; |
129 |
if ( $transfer && $transfer->in_transit ) { |
130 |
$itm->{transfertfrom} = $transfertfrom; |
130 |
$itm->{transfertwhen} = $transfer->datesent; |
131 |
$itm->{transfertto} = $transfertto; |
131 |
$itm->{transfertfrom} = $transfer->frombranch; |
|
|
132 |
$itm->{transfertto} = $transfer->tobranch; |
132 |
} |
133 |
} |
133 |
} |
134 |
} |
134 |
$num++; |
135 |
$num++; |
135 |
- |
|
|