|
Lines 127-133
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 |
$biblio->{subtitles} = GetRecordValue( 'subtitle', GetMarcBiblio({ biblionumber => $biblio->{biblionumber} }), GetFrameworkCode( $biblio->{biblionumber} ) ); |
| 131 |
|
131 |
|
| 132 |
$biblio->{booksellerid} = $booksellerid; |
132 |
$biblio->{booksellerid} = $booksellerid; |
| 133 |
push @results, $biblio; |
133 |
push @results, $biblio; |
| 134 |
- |
|
|