|
Lines 80-85
sub delete {
Link Here
|
| 80 |
} |
80 |
} |
| 81 |
foreach my $slist ( @sharedlists ) { |
81 |
foreach my $slist ( @sharedlists ) { |
| 82 |
$slist->set({ owner => $usernumber })->store; |
82 |
$slist->set({ owner => $usernumber })->store; |
|
|
83 |
# if staff member had a share, remove it |
| 84 |
$slist->remove_share( $usernumber ); |
| 83 |
} |
85 |
} |
| 84 |
} |
86 |
} |
| 85 |
|
87 |
|
| 86 |
- |
|
|