- my @results;
-
- # retrieve biblios from shelf
- foreach my $biblio (@$items) {
- my $biblionumber = $biblio->{biblionumber};
- my $fw = GetFrameworkCode($biblionumber);
- my $dat = GetBiblioData($biblionumber);
- my $record = GetMarcBiblio($biblionumber);
- my $marcnotesarray = GetMarcNotes( $record, $marcflavour );
- my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
- my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
- my $subtitle = GetRecordValue('subtitle', $record, $fw);
-
- my @items = GetItemsInfo( $biblionumber );
-
- $dat->{ISBN} = GetMarcISBN($record, $marcflavour);
- $dat->{MARCNOTES} = $marcnotesarray;
- $dat->{MARCSUBJCTS} = $marcsubjctsarray;
- $dat->{MARCAUTHORS} = $marcauthorsarray;
- $dat->{'biblionumber'} = $biblionumber;
- $dat->{ITEM_RESULTS} = \@items;
- $dat->{subtitle} = $subtitle;
- $dat->{HASAUTHORS} = $dat->{'author'} || @$marcauthorsarray;
-
- $iso2709 .= $record->as_usmarc();
-
- push( @results, $dat );
- }
-
- my $user = GetMember(borrowernumber => $borrowernumber);