|
Lines 400-405
sub delete {
Link Here
|
| 400 |
} |
400 |
} |
| 401 |
foreach my $slist ( @sharedlists ) { |
401 |
foreach my $slist ( @sharedlists ) { |
| 402 |
$slist->set({ owner => $usernumber })->store; |
402 |
$slist->set({ owner => $usernumber })->store; |
|
|
403 |
# if staff member had a share, remove it |
| 404 |
$slist->remove_share( $usernumber ); |
| 403 |
} |
405 |
} |
| 404 |
} |
406 |
} |
| 405 |
|
407 |
|
| 406 |
- |
|
|