Changeset 390 for trunk/dns.cgi
- Timestamp:
- 09/21/12 13:41:48 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dns.cgi
r389 r390 956 956 } 957 957 } 958 # "Chained" permissions. Some permissions imply others; make sure they get set. 959 foreach (keys %permchains) { 960 if ($chperms{$_} && !$chperms{$permchains{$_}}) { 961 $chperms{$permchains{$_}} = 1; 962 } 963 } 958 964 my ($code,$msg) = changePermissions($dbh, 'group', $webvar{gid}, \%chperms); 959 965 if ($code eq 'OK') { … … 1180 1186 } else { 1181 1187 $permstring = 'i'; 1188 } 1189 # "Chained" permissions. Some permissions imply others; make sure they get set. 1190 foreach (keys %permchains) { 1191 if ($newperms{$_} && !$newperms{$permchains{$_}}) { 1192 $newperms{$permchains{$_}} = 1; 1193 $permstring .= ",$permchains{$_}"; 1194 } 1182 1195 } 1183 1196 if ($webvar{useraction} eq 'add') {
Note:
See TracChangeset
for help on using the changeset viewer.