diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-06-04 15:29:18 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-06-04 15:29:18 -0700 |
commit | 17b4664d50ba04809cb8b68fa0f3b6146b0c8ff3 (patch) | |
tree | 30c13e0648b51046e3eda9c8f77a615f9e254654 /FS/FS/access_right.pm | |
parent | 93786ae8b97b3b11b11eff8ee5fdf78b6b53f26f (diff) |
suspend and unsuspend whole customer action, RT#17841
Diffstat (limited to 'FS/FS/access_right.pm')
-rw-r--r-- | FS/FS/access_right.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/FS/FS/access_right.pm b/FS/FS/access_right.pm index 26a480b..52cae34 100644 --- a/FS/FS/access_right.pm +++ b/FS/FS/access_right.pm @@ -3,6 +3,7 @@ package FS::access_right; use strict; use vars qw( @ISA ); use FS::Record qw( qsearch qsearchs ); +use FS::upgrade_journal; @ISA = qw(FS::Record); @@ -183,9 +184,13 @@ sub _upgrade_data { # class method my @all_groups = qsearch('access_group', {}); my %onetime = ( - 'List customers' => 'List all customers', - 'List packages' => 'Summarize packages', - 'Post payment' => 'Backdate payment', + 'List customers' => 'List all customers', + 'List packages' => 'Summarize packages', + 'Post payment' => 'Backdate payment', + 'Cancel customer package immediately' => 'Un-cancel customer package', + 'Suspend customer package' => 'Suspend customer', + 'Unsuspend customer package' => 'Unsuspend customer', + 'List services' => [ 'Services: Accounts', 'Services: Domains', 'Services: Certificates', @@ -205,7 +210,6 @@ sub _upgrade_data { # class method 'Usage: Call Detail Records (CDRs)', 'Usage: Unrateable CDRs', ], - 'Cancel customer package immediately' => 'Un-cancel customer package', ); foreach my $old_acl ( keys %onetime ) { |