+sub HandleSelect {
+ return unless $authorized= $loggedinuser>0;
+ my $privateshelves = GetAllShelves(1,$loggedinuser,1);
+ if(@{$privateshelves}){
+ $template->param (
+ privatevirtualshelves => $privateshelves,
+ existingshelves => 1
+ );
+ }
+ my $publicshelves = GetAllShelves(2,$loggedinuser,1);
+ if(@{$publicshelves}){
+ $template->param (
+ publicvirtualshelves => $publicshelves,
+ existingshelves => 1
+ );
+ }
+}
+
+sub LoadBib {
+ for my $bib (@biblionumber) {
+ my $data = GetBiblioData( $bib );
+ push(@biblios,
+ { biblionumber => $bib,
+ title => $data->{'title'},
+ author => $data->{'author'},
+ } );
+ }
+ $template->param(
+ multiple => (scalar(@biblios) > 1),
+ total => scalar @biblios,
+ biblios => \@biblios,
+ );