[freeside-commits] freeside/FS/FS/part_pkg prorate.pm, 1.7, 1.8 subscription.pm, 1.7, 1.8

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_pkg
In directory wavetail:/tmp/cvs-serv16636

Modified Files:
	prorate.pm subscription.pm 
Log Message:
fix some very annoying clucks (warnings with backtraces) when cutoff day isn't found in old packages

Index: prorate.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/prorate.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- prorate.pm	21 Apr 2006 14:20:05 -0000	1.7
+++ prorate.pm	1 May 2006 12:38:05 -0000	1.8
@@ -37,7 +37,7 @@
 
 sub calc_recur {
   my($self, $cust_pkg, $sdate ) = @_;
-  my $cutoff_day = $self->option('cutoff_day') || 1;
+  my $cutoff_day = $self->option('cutoff_day', 1) || 1;
   my $mnow = $$sdate;
   my ($sec,$min,$hour,$mday,$mon,$year) = (localtime($mnow) )[0,1,2,3,4,5];
   my $mend;

Index: subscription.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/subscription.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- subscription.pm	21 Apr 2006 14:20:05 -0000	1.7
+++ subscription.pm	1 May 2006 12:38:06 -0000	1.8
@@ -33,7 +33,7 @@
 
 sub calc_recur {
   my($self, $cust_pkg, $sdate ) = @_;
-  my $cutoff_day = $self->option('cutoff_day') || 1;
+  my $cutoff_day = $self->option('cutoff_day', 1) || 1;
   my $mnow = $$sdate;
   my ($sec,$min,$hour,$mday,$mon,$year) = (localtime($mnow) )[0,1,2,3,4,5];