Lines 362-374
sub shelfpage {
Link Here
|
362 |
|
362 |
|
363 |
#Deleting a shelf (asking for confirmation if it has entries) |
363 |
#Deleting a shelf (asking for confirmation if it has entries) |
364 |
foreach ( $query->param() ) { |
364 |
foreach ( $query->param() ) { |
365 |
/(DEL|REMSHR)-(\d+)/ or next; |
365 |
/(DEL|REMSHR)-(\d+)$/ or next; |
366 |
$delflag = 1; |
366 |
$delflag = 1; |
367 |
my $number = $2; |
367 |
my $number = $2; |
368 |
unless ( defined $shelflist->{$number} || defined $privshelflist->{$number} ) { |
|
|
369 |
push( @paramsloop, { unrecognized => $number } ); |
370 |
last; |
371 |
} |
372 |
#remove a share |
368 |
#remove a share |
373 |
if(/REMSHR/) { |
369 |
if(/REMSHR/) { |
374 |
RemoveShare($loggedinuser, $number); |
370 |
RemoveShare($loggedinuser, $number); |
Lines 377-383
sub shelfpage {
Link Here
|
377 |
$stay=0; |
373 |
$stay=0; |
378 |
next; |
374 |
next; |
379 |
} |
375 |
} |
380 |
# |
|
|
381 |
unless ( ShelfPossibleAction( $loggedinuser, $number, 'manage' ) ) { |
376 |
unless ( ShelfPossibleAction( $loggedinuser, $number, 'manage' ) ) { |
382 |
push( @paramsloop, { nopermission => $shelfnumber } ); |
377 |
push( @paramsloop, { nopermission => $shelfnumber } ); |
383 |
last; |
378 |
last; |