projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
quiet warning on upgrade
[freeside.git]
/
FS
/
FS
/
access_right.pm
diff --git
a/FS/FS/access_right.pm
b/FS/FS/access_right.pm
index
32050a7
..
aca8c78
100644
(file)
--- a/
FS/FS/access_right.pm
+++ b/
FS/FS/access_right.pm
@@
-5,6
+5,7
@@
use vars qw( @ISA );
use Tie::IxHash;
use FS::Record qw( qsearch qsearchs );
use FS::upgrade_journal;
use Tie::IxHash;
use FS::Record qw( qsearch qsearchs );
use FS::upgrade_journal;
+use FS::access_group;
@ISA = qw(FS::Record);
@ISA = qw(FS::Record);
@@
-193,6
+194,9
@@
sub _upgrade_data { # class method
'Suspend customer package' => 'Suspend customer',
'Unsuspend customer package' => 'Unsuspend customer',
'Post credit' => 'Credit line items',
'Suspend customer package' => 'Suspend customer',
'Unsuspend customer package' => 'Unsuspend customer',
'Post credit' => 'Credit line items',
+ #'View customer tax exemptions' => 'Edit customer tax exemptions',
+ 'Edit customer' => 'Edit customer tax exemptions',
+ 'Edit package definitions' => 'Bulk edit package definitions',
'List services' => [ 'Services: Accounts',
'Services: Domains',
'List services' => [ 'Services: Accounts',
'Services: Domains',
@@
-213,6
+217,7
@@
sub _upgrade_data { # class method
'Services: Accounts' => 'Services: Accounts: Advanced search',
'Services: Wireless broadband services' => 'Services: Wireless broadband services: Advanced search',
'Services: Hardware' => 'Services: Hardware: Advanced search',
'Services: Accounts' => 'Services: Accounts: Advanced search',
'Services: Wireless broadband services' => 'Services: Wireless broadband services: Advanced search',
'Services: Hardware' => 'Services: Hardware: Advanced search',
+ 'Services: Phone numbers' => 'Services: Phone numbers: Advanced search',
'List rating data' => [ 'Usage: RADIUS sessions',
'Usage: Call Detail Records (CDRs)',
'List rating data' => [ 'Usage: RADIUS sessions',
'Usage: Call Detail Records (CDRs)',
@@
-224,7
+229,13
@@
sub _upgrade_data { # class method
'Edit customer contacts',
],
'Edit customer contacts',
],
- ;
+ 'Provision customer service' => [ 'Edit password' ],
+
+ 'Financial reports' => [ 'Employees: Commission Report',
+ 'Employees: Audit Report',
+ ],
+ 'Services: Accounts' => 'Services: Cable Subscribers',
+;
foreach my $old_acl ( keys %onetime ) {
foreach my $old_acl ( keys %onetime ) {