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 {
