X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_event%2FAction%2Fwriteoff.pm;h=8529d29f1b6029e9864e93937118a7e6a82f5120;hb=66f90856e0b21117a4e62f2bebec0908feda8fda;hp=fdea897fa7d71c8cf21de9d23cb8b26acb10a402;hpb=54538d4a7445f5315e27cb8ff44b5ddc4160ee88;p=freeside.git

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