[freeside-commits] freeside/FS/FS/part_pkg prorate.pm, 1.23.2.1, 1.23.2.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_pkg
In directory wavetail.420.am:/tmp/cvs-serv27754

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	prorate.pm 
Log Message:
avoid needlessly warning about old prorate packages without a cutoff_day on 2.1

Index: prorate.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/prorate.pm,v
retrieving revision 1.23.2.1
retrieving revision 1.23.2.2
diff -u -w -d -r1.23.2.1 -r1.23.2.2
--- prorate.pm	24 Dec 2010 09:49:49 -0000	1.23.2.1
+++ prorate.pm	5 Feb 2011 06:51:51 -0000	1.23.2.2
@@ -36,7 +36,7 @@
 
 sub calc_recur {
   my $self = shift;
-  my $cutoff_day = $self->option('cutoff_day') || 1;
+  my $cutoff_day = $self->option('cutoff_day', 1) || 1;
   return $self->calc_prorate(@_, $cutoff_day) - $self->calc_discount(@_);
 }