|
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; |