|
Lines 117-123
sub HandleShelfNumber {
Link Here
|
| 117 |
my $shelfnumber = $query->param('shelfnumber'); |
117 |
my $shelfnumber = $query->param('shelfnumber'); |
| 118 |
my $shelf = Koha::Virtualshelves->find( $shelfnumber ); |
118 |
my $shelf = Koha::Virtualshelves->find( $shelfnumber ); |
| 119 |
if ( $shelf->can_biblios_be_added( $loggedinuser ) ) { |
119 |
if ( $shelf->can_biblios_be_added( $loggedinuser ) ) { |
| 120 |
$shelf-> |
|
|
| 121 |
AddBibliosToShelf($shelfnumber,@biblionumber); |
120 |
AddBibliosToShelf($shelfnumber,@biblionumber); |
| 122 |
#Close this page and return |
121 |
#Close this page and return |
| 123 |
print $query->header; |
122 |
print $query->header; |
| 124 |
- |
|
|