diff options
Diffstat (limited to 'FS/FS/part_event/Action/writeoff.pm')
-rw-r--r-- | FS/FS/part_event/Action/writeoff.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_event/Action/writeoff.pm b/FS/FS/part_event/Action/writeoff.pm index fdea897..8529d29 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; ''; |