[siesta-commit] siesta/lib/Siesta/Storage DBI.pm,1.1,1.2

[prev] [thread] [next] [lurker] [Date index for 2002/08/26]

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

Modified Files:
	DBI.pm 
Log Message:
refactor into Storage::DBI

Index: DBI.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage/DBI.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- DBI.pm	26 Aug 2002 21:46:19 -0000	1.1
+++ DBI.pm	26 Aug 2002 22:50:20 -0000	1.2
@@ -4,10 +4,22 @@
 use Siesta::Storage;
 use base 'Siesta::Storage';
 
+use Siesta::Storage::Table::Users;
 use Siesta::Storage::Table::Lists;
 use Siesta::Storage::Table::List_Users;
 use Siesta::Storage::Table::List_Plugins;
 
+sub load_user {
+    my $self = shift;
+    my $user = shift;
+
+    my $t_lists = Siesta::Storage::Table::Users->new();
+    my @results = $t_lists->search(id => $user);
+    return unless @results == 1;
+    delete $results[0]->{__Changed};
+
+    return %{ $results[0] };
+}
 
 sub load_list {
     my $self = shift;

• [siesta-commit] siesta/lib/Siesta/Storage DBI.pm,1.1,1.2 clampr 23:50 on 26 Aug 2002

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