cvsuser 02/08/01 11:17:35
Modified: P5EEx/Blue/P5EEx/Blue/Repository DBI.pm
P5EEx/Blue/P5EEx/Blue Repository.pm
Log:
moved current_datetime() to Repository class
Revision Changes Path
1.17 +2 -3 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.16
retrieving revision 1.17
diff -u -w -r1.16 -r1.17
--- DBI.pm 30 Jul 2002 20:51:22 -0000 1.16
+++ DBI.pm 1 Aug 2002 18:17:35 -0000 1.17
@@ -1,18 +1,17 @@
######################################################################
-## File: $Id: DBI.pm,v 1.16 2002/07/30 20:51:22 spadkins Exp $
+## File: $Id: DBI.pm,v 1.17 2002/08/01 18:17:35 spadkins Exp $
######################################################################
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Repository;
package P5EEx::Blue::Repository::DBI;
-$VERSION = do { my @r=(q$Revision: 1.16 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.17 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
@ISA = ( "P5EEx::Blue::Repository" );
use Data::Dumper;
-use Date::Format;
use strict;
1.20 +24 -1 p5ee/P5EEx/Blue/P5EEx/Blue/Repository.pm
Index: Repository.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Repository.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -w -r1.19 -r1.20
--- Repository.pm 30 Jul 2002 20:50:15 -0000 1.19
+++ Repository.pm 1 Aug 2002 18:17:35 -0000 1.20
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Repository.pm,v 1.19 2002/07/30 20:50:15 spadkins Exp $
+## $Id: Repository.pm,v 1.20 2002/08/01 18:17:35 spadkins Exp $
#############################################################################
package P5EEx::Blue::Repository;
@@ -11,6 +11,8 @@
use strict;
+use Date::Format;
+
=head1 NAME
P5EEx::Blue::Repository - Interface for data persistence
@@ -2803,6 +2805,27 @@
=cut
sub service_type () { 'Repository'; }
+
+#############################################################################
+# current_datetime()
+#############################################################################
+
+=head2 current_datetime()
+
+Returns 'Repository'.
+
+ * Signature: $current_datetime = P5EEx::Blue::Repository->current_datetime();
+ * Param: void
+ * Return: $current_datetime string
+ * Since: 0.01
+
+ $current_datetime = $widget->current_datetime();
+
+=cut
+
+sub current_datetime {
+ return (time2str("%Y-%m-%d %H:%M:%S",time()));
+}
#############################################################################
# rows_by_indexed_values()
