- unless (@biblionumbers) {
- my ( $bibliocount, @biblios ) = GetBiblio($biblionumber);
-
- $template->param
- (
- biblionumber => $biblionumber,
- title => $biblios[0]->{'title'},
- author => $biblios[0]->{'author'},
- );
- } else {
- my @biblioloop = ();
- foreach my $biblionumber (@biblionumbers) {
- my ( $bibliocount, @biblios ) = GetBiblio($biblionumber);
- my %biblioiter = (
- title=>$biblios[0]->{'title'},
- author=>$biblios[0]->{'author'}
- );
- push @biblioloop, \%biblioiter;
- }
- $template->param
- (
- biblioloop => \@biblioloop,
- biblionumbers => $biblionumbers
- );
+sub LoadBib {
+ my @biblios;
+ for my $bib (@biblionumber) {
+ my $data = GetBiblioData($bib);
+ push(@biblios,
+ { biblionumber => $bib,
+ title => $data->{'title'},
+ author => $data->{'author'},
+ } );