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