use Exporter;
use Data::Dumper;
use C4::Csv;
+use C4::XSLT;
use vars qw($debug @EXPORT @ISA $VERSION);
}
( $items, $totitems ) = GetShelfContents( $shelfnumber, $shelflimit, $shelfoffset );
for my $this_item (@$items) {
- my $record = GetMarcBiblio( $this_item->{'biblionumber'} );
+ my $biblionumber = $this_item->{'biblionumber'};
+ my $record = GetMarcBiblio($biblionumber);
+ $this_item->{XSLTBloc} =
+ XSLTParse4Display($biblionumber, $record, 'Results', 'opac')
+ if C4::Context->preference("OPACXSLTResultsDisplay");
# the virtualshelfcontents table does not store these columns nor are they retrieved from the items
# and itemtypes tables, so I'm commenting them out for now to quiet the log -crn
$this_item->{'normalized_oclc'} = GetNormalizedOCLCNumber($record,$marcflavour);
$this_item->{'normalized_isbn'} = GetNormalizedISBN(undef,$record,$marcflavour);
# Getting items infos for location display
- my @items_infos = &GetItemsInfo( $this_item->{'biblionumber'}, $type );
+ my @items_infos = &GetItemsLocationInfo( $this_item->{'biblionumber'});
$this_item->{'itemsissued'} = CountItemsIssued( $this_item->{'biblionumber'} );
$this_item->{'ITEM_RESULTS'} = \@items_infos;