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