[freeside-commits] freeside/FS/FS/part_event/Action pkg_agent_credit.pm, 1.1.2.2, 1.1.2.3 pkg_employee_credit.pm, 1.1.2.2, 1.1.2.3 pkg_referral_credit.pm, 1.1.4.1, 1.1.4.2

Ivan,,, ivan at wavetail.420.am
Tue Mar 30 05:09:24 PDT 2010


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

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	pkg_agent_credit.pm pkg_employee_credit.pm 
	pkg_referral_credit.pm 
Log Message:
employee commission reporting, RT#6991

Index: pkg_employee_credit.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_event/Action/pkg_employee_credit.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
--- pkg_employee_credit.pm	30 Mar 2010 02:52:52 -0000	1.1.2.2
+++ pkg_employee_credit.pm	30 Mar 2010 12:09:21 -0000	1.1.2.3
@@ -9,7 +9,7 @@
 
 #a little false laziness w/pkg_referral_credit
 sub do_action {
-  my( $self, $cust_pkg ) = @_;
+  my( $self, $cust_pkg, $cust_event ) = @_;
 
   my $cust_main = $self->cust_main($cust_pkg);
 
@@ -31,8 +31,9 @@
   my $error = $employee_cust_main->credit(
     $amount, 
     \$reasonnum,
-    'addlinfo' =>
-      'for customer #'. $cust_main->display_custnum. ': '.$cust_main->name,
+    'eventnum' => $cust_event->eventnum,
+    'addlinfo' => 'for customer #'. $cust_main->display_custnum.
+                               ': '.$cust_main->name,
   );
   die "Error crediting customer ". $employee_cust_main->custnum.
       " for employee commission: $error"

Index: pkg_agent_credit.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_event/Action/pkg_agent_credit.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
--- pkg_agent_credit.pm	30 Mar 2010 02:53:12 -0000	1.1.2.2
+++ pkg_agent_credit.pm	30 Mar 2010 12:09:21 -0000	1.1.2.3
@@ -7,7 +7,7 @@
 
 #a little false laziness w/pkg_referral_credit
 sub do_action {
-  my( $self, $cust_pkg ) = @_;
+  my( $self, $cust_pkg, $cust_event ) = @_;
 
   my $cust_main = $self->cust_main($cust_pkg);
 
@@ -26,8 +26,9 @@
   my $error = $agent_cust_main->credit(
     $amount, 
     \$reasonnum,
-    'addlinfo' =>
-      'for customer #'. $cust_main->display_custnum. ': '.$cust_main->name,
+    'eventnum' => $cust_event->eventnum,
+    'addlinfo' => 'for customer #'. $cust_main->display_custnum.
+                               ': '.$cust_main->name,
   );
   die "Error crediting customer ". $agent_cust_main->custnum.
       " for agent commission: $error"

Index: pkg_referral_credit.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_event/Action/pkg_referral_credit.pm,v
retrieving revision 1.1.4.1
retrieving revision 1.1.4.2
diff -u -w -d -r1.1.4.1 -r1.1.4.2
--- pkg_referral_credit.pm	30 Mar 2010 02:53:12 -0000	1.1.4.1
+++ pkg_referral_credit.pm	30 Mar 2010 12:09:21 -0000	1.1.4.2
@@ -23,7 +23,7 @@
 }
 
 sub do_action {
-  my( $self, $cust_pkg ) = @_;
+  my( $self, $cust_pkg, $cust_event ) = @_;
 
   my $cust_main = $self->cust_main($cust_pkg);
 
@@ -43,8 +43,9 @@
   my $error = $referring_cust_main->credit(
     $amount, 
     \$reasonnum,
-    'addlinfo' =>
-      'for customer #'. $cust_main->display_custnum. ': '.$cust_main->name,
+    'eventnum' => $cust_event->eventnum,
+    'addlinfo' => 'for customer #'. $cust_main->display_custnum.
+                               ': '.$cust_main->name,
   );
   die "Error crediting customer ". $cust_main->referral_custnum.
       " for referral: $error"



More information about the freeside-commits mailing list