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