projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
invoice configurations, #24723
[freeside.git]
/
FS
/
FS
/
access_right.pm
diff --git
a/FS/FS/access_right.pm
b/FS/FS/access_right.pm
index
f8e30d0
..
289660f
100644
(file)
--- a/
FS/FS/access_right.pm
+++ b/
FS/FS/access_right.pm
@@
-187,7
+187,8
@@
sub _upgrade_data { # class method
my @all_groups = qsearch('access_group', {});
my @all_groups = qsearch('access_group', {});
- tie my %onetime, 'Tie::IxHash',
+ #tie my %onetime, 'Tie::IxHash',
+ my @onetime = (
'List customers' => 'List all customers',
'List all customers' => 'Advanced customer search',
'List packages' => 'Summarize packages',
'List customers' => 'List all customers',
'List all customers' => 'Advanced customer search',
'List packages' => 'Summarize packages',
@@
-224,6
+225,8
@@
sub _upgrade_data { # class method
'Services: Hardware' => 'Services: Hardware: Advanced search',
'Services: Phone numbers' => 'Services: Phone numbers: Advanced search',
'Services: Hardware' => 'Services: Hardware: Advanced search',
'Services: Phone numbers' => 'Services: Phone numbers: Advanced search',
+ 'Services: Accounts' => 'Services: Alarm services',
+
'List rating data' => [ 'Usage: RADIUS sessions',
'Usage: Call Detail Records (CDRs)',
'Usage: Unrateable CDRs',
'List rating data' => [ 'Usage: RADIUS sessions',
'Usage: Call Detail Records (CDRs)',
'Usage: Unrateable CDRs',
@@
-235,13
+238,19
@@
sub _upgrade_data { # class method
'Change customer package' => 'Detach customer package',
'Services: Accounts' => 'Services: Cable Subscribers',
'Bulk change customer packages' => 'Bulk move customer services',
'Change customer package' => 'Detach customer package',
'Services: Accounts' => 'Services: Cable Subscribers',
'Bulk change customer packages' => 'Bulk move customer services',
-;
+ 'Configuration' => 'Edit sales people',
+ );
+
+# foreach my $old_acl ( keys %onetime ) {
+#
+# my @new_acl = ref($onetime{$old_acl})
+# ? @{ $onetime{$old_acl} }
+# : ( $onetime{$old_acl} );
-
foreach my $old_acl ( keys %
onetime ) {
+
while ( @
onetime ) {
- my @new_acl = ref($onetime{$old_acl})
- ? @{ $onetime{$old_acl} }
- : ( $onetime{$old_acl} );
+ my( $old_acl, $new_acl ) = splice(@onetime, 0, 2);
+ my @new_acl = ref($new_acl) ? @$new_acl : ( $new_acl );
foreach my $new_acl ( @new_acl ) {
foreach my $new_acl ( @new_acl ) {