diff options
author | ivan <ivan> | 2009-08-11 02:45:21 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-08-11 02:45:21 +0000 |
commit | 66f90856e0b21117a4e62f2bebec0908feda8fda (patch) | |
tree | aa5fad9c1450b9f56a6fab55db10fad592e30d7d /FS | |
parent | 54538d4a7445f5315e27cb8ff44b5ddc4160ee88 (diff) |
fix bad debt writeoff action, RT#5798
Diffstat (limited to 'FS')
-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; ''; |