version 1.160.6.83, 2017/05/30 00:13:11
|
version 1.160.6.84, 2017/06/05 21:21:51
|
Line 3062 sub print_helpsettings {
|
Line 3062 sub print_helpsettings {
|
my $css_class; |
my $css_class; |
my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_'); |
my %existing=&Apache::lonnet::dump('roles',$dom,$confname,'rolesdef_'); |
my (%customroles,%ordered,%current); |
my (%customroles,%ordered,%current); |
if (ref($settings->{'adhoc'}) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
%current = %{$settings->{'adhoc'}}; |
if (ref($settings->{'adhoc'}) eq 'HASH') { |
|
%current = %{$settings->{'adhoc'}}; |
|
} |
} |
} |
my $count = 0; |
my $count = 0; |
foreach my $key (sort(keys(%existing))) { |
foreach my $key (sort(keys(%existing))) { |