From 66f90856e0b21117a4e62f2bebec0908feda8fda Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 11 Aug 2009 02:45:21 +0000
Subject: [PATCH] fix bad debt writeoff action, RT#5798

---
 FS/FS/part_event/Action/writeoff.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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;
 
   '';
-- 
2.11.0