--- trunk/Nos.pm	2005/06/22 12:31:45	62
+++ trunk/Nos.pm	2005/06/22 16:42:06	63
@@ -154,6 +154,37 @@
 }
 
 
+=head2 delete_list
+
+Delete list from database.
+
+ my $ok = delete_list(
+ 	list => 'My list'
+ );
+
+Returns false if list doesn't exist.
+
+=cut
+
+sub delete_list {
+	my $self = shift;
+
+	my $args = {@_};
+
+	croak "need list to delete" unless ($args->{'list'});
+
+	$args->{'list'} = lc($args->{'list'});
+
+	my $lists = $self->{'loader'}->find_class('lists');
+
+	my $this_list = $lists->search( name => $args->{'list'} )->first || return;
+
+	$this_list->delete || croak "can't delete list\n";
+
+	return $lists->dbi_commit || croak "can't commit";
+}
+
+
 =head2 add_member_to_list
 
 Add new member to list
@@ -769,6 +800,26 @@
 }
 
 
+=head2 DeleteList
+
+ $ok = DeleteList(
+	list => 'My list',
+ ); 
+
+=cut
+
+sub DeleteList {
+	my $self = shift;
+
+	if ($_[0] !~ m/^HASH/) {
+		return $nos->delete_list(
+			list => $_[0],
+		);
+	} else {
+		return $nos->delete_list( %{ shift @_ } );
+	}
+}
+
 =head2 AddMemberToList
 
  $member_id = AddMemberToList(