- my $CGIvirtualshelves;
- if ( @shelvesloop > 0 ) {
- $CGIvirtualshelves = CGI::scrolling_list (
- -name => 'shelfnumber',
- -values => \@shelvesloop,
- -labels => \%shelvesloop,
- -size => 1,
- -tabindex => '',
- -multiple => 0
- );
- }
-
- my @biblios;
- 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,
- );
+ my $privateshelves = GetAllShelves(1,$loggedinuser);
+ my @privateshelves = @{$privateshelves};
+ warn scalar($privateshelves);
+ if(@privateshelves){
+ $template->param (
+ privatevirtualshelves => @privateshelves,
+ existingshelves => 1
+ );
+ }
+ my $publicshelves = GetAllShelves(2,$loggedinuser);
+ my @publicshelves = @{$publicshelves};
+ if(@publicshelves){
+ $template->param (
+ publicvirtualshelves => @publicshelves,
+ existingshelves => 1
+ );
+ }