if ($format =~ /^\d+$/) {
my @biblios;
while ( my $content = $contents->next ) {
- push @biblios, $content->biblionumber->biblionumber;
+ push @biblios, $content->biblionumber;
}
$output = marc2csv(\@biblios, $format);
# Other formats
filters => 'ViewPolicy'
});
while ( my $content = $contents->next ) {
- my $biblionumber = $content->biblionumber->biblionumber;
+ my $biblionumber = $content->biblionumber;
my $record = GetMarcBiblio($biblionumber, 1);
my $framework = &GetFrameworkCode( $biblionumber );