|
version 1.160.6.84.2.7, 2017/11/01 03:00:31
|
version 1.160.6.84.2.8, 2017/11/01 08:56:25
|
|
Line 5732 sub print_selfcreation {
|
Line 5732 sub print_selfcreation {
|
| my $onclick = "toggleDisplay(this.form,'emailoptions');"; |
my $onclick = "toggleDisplay(this.form,'emailoptions');"; |
| my $additional = '<div id="emailoptions" style="display: '.$display.'">'; |
my $additional = '<div id="emailoptions" style="display: '.$display.'">'; |
| my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
my %domdefaults = &Apache::lonnet::get_domain_defaults($dom); |
| if (ref($domdefaults{'inststatusguest'}) eq 'ARRAY') { |
|
| $order = $domdefaults{'inststatusguest'}; |
|
| } |
|
| my (@ordered,%usertypeshash); |
my (@ordered,%usertypeshash); |
| if (ref($order) eq 'ARRAY') { |
if (ref($domdefaults{'inststatusguest'}) eq 'ARRAY') { |
| @ordered = @{$order}; |
@ordered = @{$domdefaults{'inststatusguest'}}; |
| } |
} |
| if (@ordered) { |
if (@ordered) { |
| unless (grep(/^default$/,@ordered)) { |
unless (grep(/^default$/,@ordered)) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to domainprefs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface