[freeside-commits] freeside/FS/FS/part_pkg prorate_Mixin.pm, 1.13, 1.14

[Mark Wells]

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

Modified Files:
	prorate_Mixin.pm 
Log Message:
bill recurring packages up to current date, #12569

Index: prorate_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/prorate_Mixin.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -d -r1.13 -r1.14
--- prorate_Mixin.pm	15 Mar 2011 23:32:18 -0000	1.13
+++ prorate_Mixin.pm	9 May 2011 20:31:10 -0000	1.14
@@ -50,6 +50,7 @@
 sub calc_prorate {
   my ($self, $cust_pkg, $sdate, $details, $param, $cutoff_day) = @_;
   die "no cutoff_day" unless $cutoff_day;
+  die "can't prorate non-monthly package\n" if $self->freq =~ /\D/;
 
   my $charge = $self->base_recur($cust_pkg, $sdate) || 0;