Lines 78-83
foreach my $biblionumber ( @bibs ) {
Link Here
|
78 |
$hasauthors = 1; |
78 |
$hasauthors = 1; |
79 |
} |
79 |
} |
80 |
my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'}, 'opac'); |
80 |
my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'}, 'opac'); |
|
|
81 |
my $shelflocations =GetKohaAuthorisedValues('items.location',$dat->{'frameworkcode'}, 'opac'); |
81 |
|
82 |
|
82 |
# COinS format FIXME: for books Only |
83 |
# COinS format FIXME: for books Only |
83 |
my $coins_format; |
84 |
my $coins_format; |
Lines 92-97
foreach my $biblionumber ( @bibs ) {
Link Here
|
92 |
|
93 |
|
93 |
my $branches = GetBranches(); |
94 |
my $branches = GetBranches(); |
94 |
for my $itm (@items) { |
95 |
for my $itm (@items) { |
|
|
96 |
if ($itm->{'location'}){ |
97 |
$itm->{'location_opac'} = $shelflocations->{$itm->{'location'} }; |
98 |
} |
95 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber}); |
99 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber}); |
96 |
if ( defined( $transfertwhen ) && $transfertwhen ne '' ) { |
100 |
if ( defined( $transfertwhen ) && $transfertwhen ne '' ) { |
97 |
$itm->{transfertwhen} = $transfertwhen; |
101 |
$itm->{transfertwhen} = $transfertwhen; |
98 |
- |
|
|