[freeside-commits] freeside/FS/FS/part_event/Action writeoff.pm, 1.1, 1.2

[Ivan,,,]

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

Modified Files:
	writeoff.pm 
Log Message:
fix bad debt writeoff action, RT#5798

Index: writeoff.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_event/Action/writeoff.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- writeoff.pm	11 Apr 2009 21:42:52 -0000	1.1
+++ writeoff.pm	11 Aug 2009 02:45:21 -0000	1.2
@@ -22,9 +22,9 @@
 
   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;
 
   '';