[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Util.pm,1.12,1.13

[Chris W. <la...@us...>]

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>