[siesta-commit] siesta/lib/Siesta/Storage Table.pm,1.3,1.4

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

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

Modified Files:
	Table.pm 
Log Message:

checked in


Index: Table.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage/Table.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Table.pm	21 Aug 2002 16:49:03 -0000	1.3
+++ Table.pm	23 Aug 2002 15:15:19 -0000	1.4
@@ -12,13 +12,18 @@
 __PACKAGE__->make_filter(search2 => '%s = ? AND %s = ?');
 
 sub new {
-    my $class = shift;
-    my ($table_name,$primary,@fields) = @_;
-    $class->table($table_name);
-    $class->columns( All     => @fields    );
-    my $self;
-    $self->{table_name} = $table_name;
+  my $class = shift;
+  my ($table_name,$primary,@fields) = @_;
+  $class->table($table_name);
+  $class->columns( All     => @fields    );
+  my $self;
+  $self->{table_name} = $table_name;
     return bless $self, $class;
+}
+
+sub dbh {
+  my $self = shift;
+  return $self->db_Main;
 }
 
 1;

• [siesta-commit] siesta/lib/Siesta/Storage Table.pm,1.3,1.4 gmccarroll 16:15 on 23 Aug 2002

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