[Koha-cvs] koha/C4 Date.pm

[Bruno Toumi]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Bruno Toumi <btoumi at savannah.gnu.org>	06/06/02 15:31:20

Modified files:
	C4             : Date.pm 

Log message:
	delete today function (from OP)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Date.pm.diff?tr1=1.16&tr2=1.17&r1=text&r2=text

Patches:
Index: koha/C4/Date.pm
diff -u koha/C4/Date.pm:1.16 koha/C4/Date.pm:1.17
--- koha/C4/Date.pm:1.16	Tue May 23 01:53:19 2006
+++ koha/C4/Date.pm	Fri Jun  2 15:31:20 2006
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Date.pm,v 1.16 2006/05/23 01:53:19 rangi Exp $
+# $Id: Date.pm,v 1.17 2006/06/02 15:31:20 btoumi Exp $
 
 package C4::Date;
 
@@ -25,11 +25,12 @@
 use C4::Context;
 use Date::Manip;
 
+
 require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
-$VERSION = do { my @v = '$Revision: 1.16 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.17 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw(Exporter);
 
@@ -147,19 +148,5 @@
     return $newdate;
 }
 
-#function to return a current date OUEST-PROVENCE
-sub today {
-    my ($adddate) = @_;
-    my ( $j, $m, $a ) = (localtime)[ 3, 4, 5 ];
-    if ( $j < 10 ) {
-        $j = '0' . $j;
-    }
-    $m = $m + 1;
-    if ( $m < 10 ) {
-        $m = '0' . $m;
-    }
-    $a = $a + 1900 + $adddate;
-    return format_date("$a-$m-$j");
-}
 
 1;