[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/bull subscription-detail.pl [rel_2_2]
From: |
Robert Lyon |
Subject: |
[Koha-cvs] koha/bull subscription-detail.pl [rel_2_2] |
Date: |
Tue, 19 Dec 2006 03:28:22 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Robert Lyon <bob_lyon> 06/12/19 03:28:22
Modified files:
bull : subscription-detail.pl
Log message:
Updated the date calculations so they work now
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/bull/subscription-detail.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.5.2.7&r2=1.5.2.8
Patches:
Index: subscription-detail.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/subscription-detail.pl,v
retrieving revision 1.5.2.7
retrieving revision 1.5.2.8
diff -u -b -r1.5.2.7 -r1.5.2.8
--- subscription-detail.pl 5 Dec 2006 14:57:55 -0000 1.5.2.7
+++ subscription-detail.pl 19 Dec 2006 03:28:22 -0000 1.5.2.8
@@ -10,7 +10,7 @@
use C4::Interface::CGI::Output;
use C4::Context;
use HTML::Template;
-use Date::Calc;
+use Date::Calc qw(:all);
my $query = new CGI;
my $op = $query->param('op');
@@ -127,8 +127,8 @@
my $weekarrayjs='';
my $count = 0;
my ($year, $month, $day) = Date::Calc::Today;
-my $firstday = Day_of_Year($month,$day,$year);
-my $wkno = Week_of_Year($month,$day,$year,1); # week starting monday
+my $firstday = Day_of_Year($year,$month,$day);
+my $wkno = Week_of_Year($year,$month,$day); # week starting monday
my $weekno = $wkno;
for(my $i=$firstday;$i<($firstday+365);$i=$i+7){
$count = $i;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/bull subscription-detail.pl [rel_2_2],
Robert Lyon <=