[freeside-commits] freeside/FS/FS discount_plan.pm, 1.1.2.2, 1.1.2.3

[Mark Wells]

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

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	discount_plan.pm 
Log Message:
missing file from #15068

Index: discount_plan.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/discount_plan.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -w -d -r1.1.2.2 -r1.1.2.3
--- discount_plan.pm	7 Dec 2011 05:50:50 -0000	1.1.2.2
+++ discount_plan.pm	10 Dec 2011 01:29:46 -0000	1.1.2.3
@@ -47,10 +47,12 @@
 
   my ($previous_balance) = $cust_bill->previous;
   my $self = {
+    cust_bill     => $cust_bill,
+    months        => $months,
     pkgnums       => [],
     base          => $previous_balance || 0, # sum of charges before discount
     discounted    => $previous_balance || 0, # sum of charges after discount
-    list_pkgnums  => 0, # whether any packages are not discounted
+    list_pkgnums  => undef, # whether any packages are not discounted
   };
 
   foreach my $cust_bill_pkg ( $cust_bill->cust_bill_pkg ) {
@@ -182,6 +184,19 @@
   @{ $self->{pkgnums} };
 }
 
+=item list_pkgnums
+
+Returns a true value if any packages listed on the invoice do not 
+receive a discount, either because there isn't one at the specified
+term length or because they're not monthly recurring packages.
+
+=cut
+
+sub list_pkgnums {
+  my $self = shift;
+  $self->{list_pkgnums};
+}
+
 # any others?  don't think so
 
 1;