Lines 127-132
my @results;
Link Here
|
127 |
foreach my $result ( @{$marcresults} ) { |
127 |
foreach my $result ( @{$marcresults} ) { |
128 |
my $marcrecord = C4::Search::new_record_from_zebra( 'biblioserver', $result ); |
128 |
my $marcrecord = C4::Search::new_record_from_zebra( 'biblioserver', $result ); |
129 |
my $biblio = TransformMarcToKoha( $marcrecord, '' ); |
129 |
my $biblio = TransformMarcToKoha( $marcrecord, '' ); |
|
|
130 |
$biblio->{subtitles} = GetRecordValue( 'subtitle', GetMarcBiblio( $biblio->{biblionumber} ), GetFrameworkCode( $biblio->{biblionumber} ) ); |
130 |
|
131 |
|
131 |
$biblio->{booksellerid} = $booksellerid; |
132 |
$biblio->{booksellerid} = $booksellerid; |
132 |
push @results, $biblio; |
133 |
push @results, $biblio; |