[Koha-cvs] koha/bull subscription-detail.pl [rel_2_2]

[Robert Lyon]

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;