version 1.35, 2017/07/27 13:45:12
|
version 1.36, 2017/08/03 16:22:09
|
Line 185 $jscript
|
Line 185 $jscript
|
} |
} |
if (grep(/^selfcreation$/,@actions)) { |
if (grep(/^selfcreation$/,@actions)) { |
my $prefix = 'cancreate_emailverified'; |
my $prefix = 'cancreate_emailverified'; |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
my $customclass = 'LC_selfcreate_email'; |
if (ref($domdefaults{'inststatusguest'}) eq 'ARRAY') { |
my $classprefix = 'LC_canmodify_emailusername_'; |
my $order = $domdefaults{'inststatusguest'}; |
my $optionsprefix = 'LC_options_emailusername_'; |
if (ref($order) eq 'ARRAY') { |
$onload .= "toggleRows(document.display,'cancreate_email','selfassign','$customclass','$classprefix','$optionsprefix');"; |
foreach my $type (@{$order}) { |
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom); |
if (($type ne '') && ($type ne 'default')) { |
my $hascustom; |
my $name = $prefix.'_'.$type; |
my ($emailrules,$emailruleorder) = &Apache::lonnet::inst_userrules($dom,'email'); |
$onload .= "toggleDisplay(document.display,'$name');"; |
if (ref($emailrules) eq 'HASH') { |
} |
if (keys(%{$emailrules}) > 0) { |
} |
$hascustom = 'cancreate_emailrule'; |
} |
} |
} |
} |
$onload .= "toggleDisplay(document.display,'$prefix');". |
my @posstypes; |
"toggleDisplay(document.display,'emailoptions');"; |
if (ref($types) eq 'ARRAY') { |
|
@posstypes = @{$types}; |
|
push(@posstypes,'default'); |
|
foreach my $type (@posstypes) { |
|
$onload .= "toggleEmailOptions(document.display,'cancreate_emailoptions','$hascustom',". |
|
"'cancreate_emaildomain','$type');"; |
|
} |
|
} else { |
|
$onload .= "toggleEmailOptions(document.display,'cancreate_emailoptions','$hascustom',". |
|
"'cancreate_emaildomain','default');"; |
|
} |
} |
} |
if ($onload) { |
if ($onload) { |
my %loaditems = ( |
my %loaditems = ( |