From: ivan <ivan>
Date: Tue, 11 Aug 2009 02:45:21 +0000 (+0000)
Subject: fix bad debt writeoff action, RT#5798
X-Git-Tag: freeside_1_9_1^2~154
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=66f90856e0b21117a4e62f2bebec0908feda8fda;p=freeside.git

fix bad debt writeoff action, RT#5798
---

diff --git a/FS/FS/part_event/Action/writeoff.pm b/FS/FS/part_event/Action/writeoff.pm
index fdea897fa..8529d29f1 100644
--- a/FS/FS/part_event/Action/writeoff.pm
+++ b/FS/FS/part_event/Action/writeoff.pm
@@ -22,9 +22,9 @@ sub do_action {
 
   my $cust_main = $self->cust_main($cust_object);
 
-  my $error = $cust_main->credit( $cust_main->balance,
-                                  $self->option('reasonnum'),
-                                );
+  my $reasonnum = $self->option('reasonnum');
+
+  my $error = $cust_main->credit( $cust_main->balance, \$reasonnum );
   die $error if $error;
 
   '';