--- loncom/interface/lonconfigsettings.pm	2017/08/15 23:41:34	1.21.4.9.2.1
+++ loncom/interface/lonconfigsettings.pm	2020/04/09 20:34:29	1.21.4.9.6.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: lonconfigsettings.pm,v 1.21.4.9.2.1 2017/08/15 23:41:34 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.21.4.9.6.1 2020/04/09 20:34:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,7 +39,7 @@ use Apache::courseclassifier();
 use LONCAPA qw(:DEFAULT :match);
 
 sub print_header {
-    my ($r,$phase,$context,$jscript,$container,$instcode,$dom) = @_;
+    my ($r,$phase,$context,$jscript,$container,$instcode,$dom,$values) = @_;
     my ($pagetitle,$brcrumtitle,$action,$call_category_check,$instcode_check,
         $crstype,@actions,@code_order);
     if ($phase eq 'display') {
@@ -176,45 +176,25 @@ $jscript
         $additem = {'add_entries' => \%loaditems,};
     } elsif ($phase eq 'display') {
         if ($context eq 'domain') {
-            my $onload;
             if (grep(/^coursedefaults$/,@actions)) {
-                $onload = "toggleDisplay(document.display,'cloneinstcode');".
-                          "toggleDisplay(document.display,'credits');".
-                          "toggleDisplay(document.display,'studentsubmission');";
-            }
-            if (grep(/^selfcreation$/,@actions)) {
-                my $prefix = 'cancreate_emailverified';
-                my $customclass = 'LC_selfcreate_email';
-                my $classprefix = 'LC_canmodify_emailusername_';
-                my $optionsprefix = 'LC_options_emailusername_';
-                $onload .= "toggleRows(document.display,'cancreate_email','selfassign','$customclass','$classprefix','$optionsprefix');";
-                my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($dom);
-                my $hascustom;
-                my ($emailrules,$emailruleorder) = &Apache::lonnet::inst_userrules($dom,'email');
-                if (ref($emailrules) eq 'HASH') {
-                    if (keys(%{$emailrules}) > 0) {
-                        $hascustom = 'cancreate_emailrule';
-                    }
-                }
-                my @posstypes;
-                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) {
                 my %loaditems = (
-                                  'onload' => $onload,
+                    '             onload' => "toggleDisplay(document.display,'cloneinstcode');".
+                                             "toggleDisplay(document.display,'credits');".
+                                             "toggleDisplay(document.display,'studentsubmission');",
                                 );
                 $additem = {'add_entries' => \%loaditems,};
             }
+            if (grep(/^ltitools$/,@actions)) {
+                $onload .= "toggleLTITools(document.display,'user','add');";
+                if (ref($values) eq 'HASH') {
+                    if (ref($values->{'ltitools'}) eq 'HASH') {
+                        my $numltitools = scalar(keys(%{$values->{'ltitools'}}));
+                        for (my $i=0; $i<$numltitools; $i++) {
+                            $onload .= "toggleLTITools(document.display,'user','$i');";
+                        }
+                    }
+                }
+            }
         } elsif ($context eq 'course') {
             if (grep(/^courseinfo$/,@actions)) {
                 if (@code_order) {
@@ -366,7 +346,7 @@ sub display_settings {
     if (ref($values) eq 'HASH') {
         $instcode = $values->{'internal.coursecode'};
     }
-    &print_header($r,$phase,$context,$jscript,$container,$instcode,$dom);
+    &print_header($r,$phase,$context,$jscript,$container,$instcode,$dom,$values);
     my $divwidth = 900;
     if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { 
         if (@actions > 0) {