+ my @biblios;
+ for my $bib (@biblionumber) {
+ my $data = GetBiblioData( $bib );
+ push(@biblios,
+ { biblionumber => $bib,
+ title => $data->{'title'},
+ author => $data->{'author'},
+ } );
+ }
+ $template->param(
+ newshelf => $newshelf,
+ biblios=>\@biblios,
+ multiple => (scalar(@biblionumber) > 1),
+ total => scalar(@biblionumber),
+ );
+
+ unless (@biblionumbers) {