[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Date.pm
From: |
Bruno Toumi |
Subject: |
[Koha-cvs] koha/C4 Date.pm |
Date: |
Fri, 02 Jun 2006 15:31:20 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Bruno Toumi <address@hidden> 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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/C4 Date.pm,
Bruno Toumi <=