[siesta-commit] siesta/lib/Siesta List.pm,1.30,1.31 Storage.pm,1.7,1.8

[prev] [thread] [next] [lurker] [Date index for 2002/09/05]

Update of /cvsroot/siesta/siesta/lib/Siesta
In directory usw-pr-cvs1:/tmp/cvs-serv2037/lib/Siesta

Modified Files:
	List.pm Storage.pm 
Log Message:
Fixes, fixes and more fixes.


Index: List.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/List.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- List.pm	5 Sep 2002 14:02:36 -0000	1.30
+++ List.pm	5 Sep 2002 16:13:16 -0000	1.31
@@ -4,6 +4,7 @@
 use Siesta::User;
 use strict;
 use vars qw(@fields);
+use Siesta::User;
 
 BEGIN {
     @fields = qw(id post_address return_path owner created );
@@ -151,7 +152,7 @@
     # i might change new() to accept an AoH and bless them after
     # cleanup ...
     return map {
-        new Siesta::User $_->{user_id}
+        Siesta::User->new($_->{user_id})
     } Siesta->storage->list_members( $self->id );
 }
 

Index: Storage.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Storage.pm	5 Sep 2002 12:34:58 -0000	1.7
+++ Storage.pm	5 Sep 2002 16:13:16 -0000	1.8
@@ -8,6 +8,7 @@
 }
 
 
+
 sub load_user   { die "virtual" }
 sub save_user   { die "virtual" }
 sub delete_user { die "virtual" }
@@ -16,11 +17,15 @@
 sub save_list   { die "virtual" }
 sub delete_list { die "virtual" }
 
+sub get_lists   { die "virtual" }
+sub get_users   { die "virtual" }
+
 sub member_of_list { die "virtual" }
 sub add_member_to_list { die "virtual" }
 sub remove_member_from_list { die "virtual" }
 sub list_members { die "virtual" }
 sub list_plugins { die "virtual" }
+sub user_lists   { die "virtual" }
 
 1;
 __END__
@@ -49,8 +54,19 @@
 
 removes the list from the database
 
+=item get_lists
+
+returns List objects for every list in the database.
+
+=item ->get_users
+
+returns User objects for every user in the database.
+
+
 =item ->member_of_list( $list, $user )
 
+returns true is $user is a member of $list.
+
 =item ->add_member_to_list( $list, $user )
 
 inserts a user, returns true on success
@@ -61,10 +77,16 @@
 
 =item ->list_members( $list )
 
-returns a list of member ids
+returns a list of User objects;
 
 =item ->list_plugins( $list )
 
 returns a list of plugins, in the order they should fire
+
+=item ->user_lists ($list_id)
+
+=item ->user_lists ($list_object)
+
+returns List objects for every list the user belongs to.
 
 =cut

• [siesta-commit] siesta/lib/Siesta List.pm,1.30,1.31 Storage.pm,1.7,1.8 muttley 17:13 on 05 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52