diff options
author | Jonathan Prykop <jonathan@freeside.biz> | 2016-06-15 22:19:13 -0500 |
---|---|---|
committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-06-15 22:19:13 -0500 |
commit | 5a6c2cf5ca5f1a80cad9310ec239a64dc8a280c1 (patch) | |
tree | b729c949a298e141e07b4ec163f309e394553569 /FS/FS/access_right.pm | |
parent | 919943a3c5af718afa2eb47e9b4d9d3405f0bb73 (diff) |
RT#71298: Suspend Option for billing to continue
Diffstat (limited to 'FS/FS/access_right.pm')
-rw-r--r-- | FS/FS/access_right.pm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/FS/FS/access_right.pm b/FS/FS/access_right.pm index 59defb7..0ee0aa0 100644 --- a/FS/FS/access_right.pm +++ b/FS/FS/access_right.pm @@ -292,6 +292,33 @@ sub _upgrade_data { # class method } + # some false laziness with @onetime above, + # but for use when multiple old acls trigger a single new acl + # (keys/values reversed from @onetime, expects arrayref value) + my @onetime_bynew = ( + 'Customize billing during suspension' => [ 'Suspend customer package', 'Suspend customer package later' ], + ); + while ( @onetime_bynew ) { + my( $new_acl, $old_acl ) = splice(@onetime_bynew, 0, 2); + ( my $journal = 'ACL_'.lc($new_acl) ) =~ s/\W/_/g; + next if FS::upgrade_journal->is_done($journal); + # grant $new_acl to all groups who have one of @old_acl + for my $group (@all_groups) { + next unless grep { $group->access_right($_) } @$old_acl; + next if $group->access_right($new_acl); + my $access_right = FS::access_right->new( { + 'righttype' => 'FS::access_group', + 'rightobjnum' => $group->groupnum, + 'rightname' => $new_acl, + } ); + my $error = $access_right->insert; + die $error if $error; + } + + FS::upgrade_journal->set_done($journal); + + } + ### ACL_download_report_data if ( !FS::upgrade_journal->is_done('ACL_download_report_data') ) { |