use Koha::RecordProcessor;
use utf8;
-my $query = new CGI;
+my $query = CGI->new();
my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
{
if ($bib_list && $format) {
+ my $borcat = q{};
+ if ( C4::Context->preference('OpacHiddenItemsExceptions') ) {
+ # we need to fetch the borrower info here, so we can pass the category
+ my $borrower = Koha::Patrons->find( { borrowernumber => $borrowernumber } );
+ $borcat = $borrower ? $borrower->categorycode : $borcat;
+ }
+
my @bibs = split( /\//, $bib_list );
my $marcflavour = C4::Context->preference('marcflavour');
});
foreach my $biblio (@bibs) {
- my $record = GetMarcBiblio($biblio, 1);
+ my $record = GetMarcBiblio({
+ biblionumber => $biblio,
+ embed_items => 1,
+ opac => 1,
+ borcat => $borcat });
+ my $framework = &GetFrameworkCode( $biblio );
+ $record_processor->options({
+ interface => 'opac',
+ frameworkcode => $framework
+ });
$record_processor->process($record);
next unless $record;
print $output;
} else {
- $template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ]);
+ $template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc', used_for => 'export_records' }) ]);
$template->param(bib_list => $bib_list);
output_html_with_http_headers $query, $cookie, $template->output;
}