[prev] [thread] [next] [lurker] [Date index for 2002/09/05]
Update of /cvsroot/siesta/siesta/lib/Siesta/Storage In directory usw-pr-cvs1:/tmp/cvs-serv11753/lib/Siesta/Storage Modified Files: DBI.pm Log Message: Fix a stupid tyop. Index: DBI.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage/DBI.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- DBI.pm 5 Sep 2002 12:34:21 -0000 1.5 +++ DBI.pm 5 Sep 2002 13:50:36 -0000 1.6 @@ -101,13 +101,14 @@ return unless defined $list; - my @fields = @Siesta::List::Fields; + my @fields = @Siesta::List::fields; my $sql = join ( '', "INSERT INTO lists (", join (',', @fields), ") ", - "VALUES (", join( ',', map { $self->dbh->quote($list->$_()) } @fields) ,")" + "VALUES (", join( ',', + map { $self->dbh->quote($list->$_()) } + @fields) ,")" ) ; - return $self->dbh->do($sql);
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52