diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-08-01 14:01:14 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-08-01 14:01:14 -0700 |
commit | bec3b6c2bf97d66b992866d7ee7295f1f05452e6 (patch) | |
tree | 78fb0c2523f237ad06905fe099dc5d32330a0e6e /FS/FS/access_right.pm | |
parent | 55675d6cdd93f00b7c0ac93403e8c4d66567a729 (diff) |
invoice voiding, RT#18677
Diffstat (limited to 'FS/FS/access_right.pm')
-rw-r--r-- | FS/FS/access_right.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/FS/FS/access_right.pm b/FS/FS/access_right.pm index bc57364..dc9f997 100644 --- a/FS/FS/access_right.pm +++ b/FS/FS/access_right.pm @@ -152,6 +152,8 @@ sub _upgrade_data { # class method 'Process payment' => [ 'Process credit card payment', 'Process Echeck payment' ], 'Post refund' => [ 'Post check refund', 'Post cash refund' ], 'Refund payment' => [ 'Refund credit card payment', 'Refund Echeck payment' ], + 'Regular void' => [ 'Void payments' ], + 'Unvoid' => [ 'Unvoid payments', 'Unvoid invoices' ], ); foreach my $oldright (keys %migrate) { @@ -174,9 +176,10 @@ sub _upgrade_data { # class method die $error if $error; } - #after the WEST stuff is sorted, etc. - #my $error = $old->delete; - #die $error if $error; + unless ( $oldright =~ / (payment|refund)$/ ) { #after the WEST stuff is sorted + my $error = $old->delete; + die $error if $error; + } } |