From ea0297b7fa99dce9718989157a02b38c4515c946 Mon Sep 17 00:00:00 2001
From: btoumi <btoumi>
Date: Fri, 2 Jun 2006 15:31:20 +0000
Subject: [PATCH] delete today function (from OP)

---
 C4/Date.pm | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/C4/Date.pm b/C4/Date.pm
index 0c67a1171a..39e2d680ea 100644
--- a/C4/Date.pm
+++ b/C4/Date.pm
@@ -25,6 +25,7 @@ use strict;
 use C4::Context;
 use Date::Manip;
 
+
 require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@@ -147,19 +148,5 @@ sub format_date_in_iso {
     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;
-- 
2.39.5