Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17543/lib/OpenInteract2
Modified Files:
Util.pm
Log Message:
delegate date creation to CTX
Index: Util.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Util.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Util.pm 18 Feb 2004 05:25:26 -0000 1.12
--- Util.pm 5 Dec 2004 08:56:49 -0000 1.13
***************
*** 4,8 ****
use strict;
- use DateTime;
use Log::Log4perl qw( get_logger );
use Mail::Sendmail ();
--- 4,7 ----
***************
*** 38,43 ****
$p->{format} ||= '%Y-%m-%d %T';
$p->{time} ||= time;
! return DateTime->from_epoch( epoch => $p->{time} )
! ->strftime( $p->{format} );
}
--- 37,42 ----
$p->{format} ||= '%Y-%m-%d %T';
$p->{time} ||= time;
! return CTX->create_date( epoch => $p->{time} )
! ->strftime( $p->{format} );
}
***************
*** 48,52 ****
sub today {
! return $_[0]->now( { format => '%Y-%m-%e' } );
}
--- 47,51 ----
sub today {
! return $_[0]->now({ format => '%Y-%m-%e' });
}
***************
*** 441,443 ****
=head1 AUTHORS
! Chris Winters E<lt>ch...@cw...E<gt>
\ No newline at end of file
--- 440,442 ----
=head1 AUTHORS
! Chris Winters E<lt>ch...@cw...E<gt>
|
