cvsuser 02/07/30 13:51:22 Modified: P5EEx/Blue/P5EEx/Blue/Repository DBI.pm Log: moved current_datetime() method out to the parent class Revision Changes Path 1.16 +2 -7 p5ee/P5EEx/Blue/P5EEx/Blue/Repository/DBI.pm Index: DBI.pm =================================================================== RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Repository/DBI.pm,v retrieving revision 1.15 retrieving revision 1.16 diff -u -w -r1.15 -r1.16 --- DBI.pm 30 Jul 2002 02:32:13 -0000 1.15 +++ DBI.pm 30 Jul 2002 20:51:22 -0000 1.16 @@ -1,13 +1,13 @@ ###################################################################### -## File: $Id: DBI.pm,v 1.15 2002/07/30 02:32:13 spadkins Exp $ +## File: $Id: DBI.pm,v 1.16 2002/07/30 20:51:22 spadkins Exp $ ###################################################################### use P5EEx::Blue::P5EE; use P5EEx::Blue::Repository; package P5EEx::Blue::Repository::DBI; -$VERSION = do { my @r=(q$Revision: 1.15 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r}; +$VERSION = do { my @r=(q$Revision: 1.16 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r}; @ISA = ( "P5EEx::Blue::Repository" ); @@ -1735,11 +1735,6 @@ $self->store_end($table); $self->{numrows} = $nrows; $nrows; -} - -sub current_datetime { - my ($self) = @_; - return time2str("%Y-%m-%d %H:%M:%S",time()); } sub store_begin {