);
my $bib_list = $query->param('bib_list');
-my $print_basket = $query->param('print');
my $verbose = $query->param('verbose');
if ($verbose) { $template->param( verbose => 1 ); }
-if ($print_basket) { $template->param( print_basket => 1 ); }
my @bibs = split( /\//, $bib_list );
my @results;
foreach my $biblionumber ( @bibs ) {
$template->param( biblionumber => $biblionumber );
+ my $fw = GetFrameworkCode($biblionumber);
+
my $dat = &GetBiblioData($biblionumber);
next unless $dat;
- my $record = &GetMarcBiblio($biblionumber);
+ my $record = &GetMarcBiblio({ biblionumber => $biblionumber });
+ $dat->{subtitle} = GetRecordValue('subtitle', $record, $fw);
my $marcnotesarray = GetMarcNotes( $record, $marcflavour );
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );