| 154 |
} |
} |
| 155 |
|
|
| 156 |
|
|
| 157 |
|
=head2 delete_list |
| 158 |
|
|
| 159 |
|
Delete list from database. |
| 160 |
|
|
| 161 |
|
my $ok = delete_list( |
| 162 |
|
list => 'My list' |
| 163 |
|
); |
| 164 |
|
|
| 165 |
|
Returns false if list doesn't exist. |
| 166 |
|
|
| 167 |
|
=cut |
| 168 |
|
|
| 169 |
|
sub delete_list { |
| 170 |
|
my $self = shift; |
| 171 |
|
|
| 172 |
|
my $args = {@_}; |
| 173 |
|
|
| 174 |
|
croak "need list to delete" unless ($args->{'list'}); |
| 175 |
|
|
| 176 |
|
$args->{'list'} = lc($args->{'list'}); |
| 177 |
|
|
| 178 |
|
my $lists = $self->{'loader'}->find_class('lists'); |
| 179 |
|
|
| 180 |
|
my $this_list = $lists->search( name => $args->{'list'} )->first || return; |
| 181 |
|
|
| 182 |
|
$this_list->delete || croak "can't delete list\n"; |
| 183 |
|
|
| 184 |
|
return $lists->dbi_commit || croak "can't commit"; |
| 185 |
|
} |
| 186 |
|
|
| 187 |
|
|
| 188 |
=head2 add_member_to_list |
=head2 add_member_to_list |
| 189 |
|
|
| 190 |
Add new member to list |
Add new member to list |
| 800 |
} |
} |
| 801 |
|
|
| 802 |
|
|
| 803 |
|
=head2 DeleteList |
| 804 |
|
|
| 805 |
|
$ok = DeleteList( |
| 806 |
|
list => 'My list', |
| 807 |
|
); |
| 808 |
|
|
| 809 |
|
=cut |
| 810 |
|
|
| 811 |
|
sub DeleteList { |
| 812 |
|
my $self = shift; |
| 813 |
|
|
| 814 |
|
if ($_[0] !~ m/^HASH/) { |
| 815 |
|
return $nos->delete_list( |
| 816 |
|
list => $_[0], |
| 817 |
|
); |
| 818 |
|
} else { |
| 819 |
|
return $nos->delete_list( %{ shift @_ } ); |
| 820 |
|
} |
| 821 |
|
} |
| 822 |
|
|
| 823 |
=head2 AddMemberToList |
=head2 AddMemberToList |
| 824 |
|
|
| 825 |
$member_id = AddMemberToList( |
$member_id = AddMemberToList( |
Parent Directory
| 
Revision Log
| 
Patch