add action to discount the referring customer's package, RT#20143

[freeside.git] / FS / FS / part_event / Action / referral_pkg_billdate.pm

diff --git a/FS/FS/part_event/Action/referral_pkg_billdate.pm b/FS/FS/part_event/Action/referral_pkg_billdate.pm
index 40d94e2..6b485e5 100644 (file)
--- a/FS/FS/part_event/Action/referral_pkg_billdate.pm
+++ b/FS/FS/part_event/Action/referral_pkg_billdate.pm
@@ -21,6 +21,8 @@ sub option_fields {
   );
 }
 
+#false laziness w/referral_pkg_discount, probably should make
+# Mixin/referral_pkg.pm if we need changes or anything else in this vein
 sub do_action {
   my( $self, $cust_object, $cust_event ) = @_;
 
@@ -39,6 +41,8 @@ sub do_action {
 
   my $cust_pkg = $cust_pkg[0]; #only one
 
+  #end of false laziness
+
   my $bill = $cust_pkg->bill || $cust_pkg->setup || time;
 
   $cust_pkg->bill(