Lines 90-96
sub shelfpage {
Link Here
|
90 |
|
90 |
|
91 |
# getting the Shelves list |
91 |
# getting the Shelves list |
92 |
my $category = ( ( $displaymode eq 'privateshelves' ) ? 1 : 2 ); |
92 |
my $category = ( ( $displaymode eq 'privateshelves' ) ? 1 : 2 ); |
93 |
my $shelflist = GetShelves( $category, $shelveslimit, $shelvesoffset, $loggedinuser ); |
93 |
|
|
|
94 |
my $shelflist; |
95 |
if ( $category == 2 ) { |
96 |
$shelflist = Koha::Virtualshelves->get_public_shelves({ limit => $shelveslimit, offset => $shelvesoffset }); |
97 |
} else { |
98 |
$shelflist = Koha::Virtualshelves->get_private_shelves({ limit => $shelveslimit, offset => $shelvesoffset, borrowernumber => $loggedinuser }); |
99 |
} |
94 |
my $totshelves = C4::VirtualShelves::GetShelfCount( $loggedinuser, $category ); |
100 |
my $totshelves = C4::VirtualShelves::GetShelfCount( $loggedinuser, $category ); |
95 |
|
101 |
|
96 |
my $op = $query->param('op'); |
102 |
my $op = $query->param('op'); |
Lines 443-449
sub shelfpage {
Link Here
|
443 |
my $numberCanManage = 0; |
449 |
my $numberCanManage = 0; |
444 |
|
450 |
|
445 |
# rebuild shelflist in case a shelf has been added |
451 |
# rebuild shelflist in case a shelf has been added |
446 |
$shelflist = GetShelves( $category, $shelveslimit, $shelvesoffset, $loggedinuser ) unless $delflag; |
452 |
unless ( $delflag ) { |
|
|
453 |
if ( $category == 2 ) { |
454 |
$shelflist = Koha::Virtualshelves->get_public_shelves({ limit => $shelveslimit, offset => $shelvesoffset }); |
455 |
} else { |
456 |
$shelflist = Koha::Virtualshelves->get_private_shelves({ limit => $shelveslimit, offset => $shelvesoffset, borrowernumber => $loggedinuser }); |
457 |
} |
458 |
} |
459 |
|
447 |
$totshelves = C4::VirtualShelves::GetShelfCount( $loggedinuser, $category ) unless $delflag; |
460 |
$totshelves = C4::VirtualShelves::GetShelfCount( $loggedinuser, $category ) unless $delflag; |
448 |
foreach my $element ( sort { lc( $shelflist->{$a}->{'shelfname'} ) cmp lc( $shelflist->{$b}->{'shelfname'} ) } keys %$shelflist ) { |
461 |
foreach my $element ( sort { lc( $shelflist->{$a}->{'shelfname'} ) cmp lc( $shelflist->{$b}->{'shelfname'} ) } keys %$shelflist ) { |
449 |
my %line; |
462 |
my %line; |