Lines 380-385
sub delete {
Link Here
|
380 |
} |
380 |
} |
381 |
foreach my $slist ( @sharedlists ) { |
381 |
foreach my $slist ( @sharedlists ) { |
382 |
$slist->set({ owner => $usernumber })->store; |
382 |
$slist->set({ owner => $usernumber })->store; |
|
|
383 |
# if staff member had a share, remove it |
384 |
$slist->remove_share( $usernumber ); |
383 |
} |
385 |
} |
384 |
} |
386 |
} |
385 |
|
387 |
|
386 |
- |
|
|