[siesta-commit] siesta/lib/Siesta/Storage DBI.pm,1.7,1.8

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

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

Modified Files:
	DBI.pm 
Log Message:
Fix some bugs, add some functionality.


Index: DBI.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage/DBI.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- DBI.pm	5 Sep 2002 16:13:16 -0000	1.7
+++ DBI.pm	6 Sep 2002 10:24:09 -0000	1.8
@@ -267,4 +267,16 @@
     return map { $_->{plugin_id} } @results;
 }
 
+
+sub user_lists {
+	my $self = shift;
+	my $user = shift;
+	
+	my @fields = qw( list_id );
+	my @results = $self->_get_rows(table   => 'list_users',
+				       where   => { user_id => $user },
+				       columns => \@fields);
+	
+	return map { Siesta::List->new($_->{list_id}) } @results;
+}
 1;

• [siesta-commit] siesta/lib/Siesta/Storage DBI.pm,1.7,1.8 muttley 11:24 on 06 Sep 2002

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