[Koha-cvs] koha/bull subscription-add.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:34:14

Modified files:
	bull           : subscription-add.pl 

Log message:
	Fixing up problems with the new date subroutines

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/bull/subscription-add.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.5.2.8&r2=1.5.2.9

Patches:
Index: subscription-add.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/subscription-add.pl,v
retrieving revision 1.5.2.8
retrieving revision 1.5.2.9
diff -u -b -r1.5.2.8 -r1.5.2.9
--- subscription-add.pl	5 Dec 2006 14:57:55 -0000	1.5.2.8
+++ subscription-add.pl	19 Dec 2006 03:34:14 -0000	1.5.2.9
@@ -12,7 +12,7 @@
 use C4::Context;
 use HTML::Template;
 use C4::Bull;
-use Date::Calc;
+use Date::Calc qw(:all);
 
 my $query = new CGI;
 my $op = $query->param('op');
@@ -39,8 +39,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;