Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

delete today function (from OP)

Browse source
This commit is contained in:
btoumi 2006-06-02 15:31:20 +00:00
parent e67590c3aa
commit ea0297b7fa
1 changed files with 1 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
C4/Date.pm
View file

@ -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;