[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/intranet/cgi-bin/serials subscription-add.pl [rel_TG]
From: |
Tumer Garip |
Subject: |
[Koha-cvs] koha/intranet/cgi-bin/serials subscription-add.pl [rel_TG] |
Date: |
Sun, 11 Mar 2007 20:28:12 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_TG
Changes by: Tumer Garip <tgarip1957> 07/03/11 20:28:12
Modified files:
intranet/cgi-bin/serials: subscription-add.pl
Log message:
DateTime replaced with Date::Calc
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/intranet/cgi-bin/serials/subscription-add.pl?cvsroot=koha&only_with_tag=rel_TG&r1=1.1.2.1&r2=1.1.2.2
Patches:
Index: subscription-add.pl
===================================================================
RCS file:
/sources/koha/koha/intranet/cgi-bin/serials/Attic/subscription-add.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- subscription-add.pl 10 Mar 2007 01:27:27 -0000 1.1.2.1
+++ subscription-add.pl 11 Mar 2007 20:28:12 -0000 1.1.2.2
@@ -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: subscription-add.pl,v 1.1.2.1 2007/03/10 01:27:27 tgarip1957 Exp $
+# $Id: subscription-add.pl,v 1.1.2.2 2007/03/11 20:28:12 tgarip1957 Exp $
=head1 NAME
@@ -55,7 +55,7 @@
use C4::Context;
use C4::Letters;
use C4::Members;
-use DateTime;
+use Date::Calc qw(:all);
my $query = new CGI;
my $op = $query->param('op');
my $dbh = C4::Context->dbh;
@@ -80,19 +80,17 @@
my $weekarrayjs='';
my $count = 0;
my $today=get_today();
- my $dateobj=DATE_obj($today);
- my $year=$dateobj->year;
- my $month=$dateobj->month;
- my $day=$dateobj->day_of_month;
-my $firstday = $dateobj->day_of_year;
-my $wkno = $dateobj->week_number;
+ my ($year,$month,$day)=split /-|\/|\.|:/,$today;
+
+my $firstday = Day_of_Year($year,$month,$day);
+my $wkno = Week_of_Year($year,$month,$day);
my $weekno = $wkno;
for(my $i=$firstday;$i<($firstday+365);$i=$i+7){
$count = $i;
if($wkno > 52){$year++; $wkno=1;}
if($count>365){$count=$i-365;}
- my $newdate=DateTime->from_day_of_year(year=>$year,day_of_year=>$count);
- $weekarrayjs .= "'Wk $wkno: ".format_date($newdate->ymd)."',";
+ my ($nyear,$nmonth,$nday)=Add_Delta_Days($year,1,$count);
+ $weekarrayjs .= "'Wk $wkno:
".format_date($nyear."-"$nmonth."-"$nday)."',";
$wkno++;
}
chop($weekarrayjs);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/intranet/cgi-bin/serials subscription-add.pl [rel_TG],
Tumer Garip <=