- my $biblio=GetBiblioData($$itemdata{biblionumber});
- $this_row{bibinfo} = join("\n", @$biblio{qw(title author ISBN)});
+ my $biblio=GetBiblioData($$itemdata{biblionumber});
+ $this_row{title} = $biblio->{title};
+ $this_row{author} = $biblio->{author};
+ $this_row{isbn} = $biblio->{isbn};
+ $this_row{biblionumber} = $biblio->{biblionumber};