[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonconfigsettings.pm

[raeburn]

raeburn		Sat Feb 15 17:14:53 2014 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	lonconfigsettings.pm 
  Log:
  - For 2.11
    - Backport 1.28. 
  
  
Index: loncom/interface/lonconfigsettings.pm
diff -u loncom/interface/lonconfigsettings.pm:1.21.4.4 loncom/interface/lonconfigsettings.pm:1.21.4.5
--- loncom/interface/lonconfigsettings.pm:1.21.4.4	Sun Jan  5 19:15:48 2014
+++ loncom/interface/lonconfigsettings.pm	Sat Feb 15 17:14:53 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: lonconfigsettings.pm,v 1.21.4.4 2014/01/05 19:15:48 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.21.4.5 2014/02/15 17:14:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -258,16 +258,19 @@
                 if (grep(/^\Q$item\E$/, at actions)) {
                     push(@items,$item);
                     if ($context eq 'domain') {
+                        my $settings = $values->{$item};
                         if ($item eq 'usersessions') {
                             $r->print('<script type="text/javascript">'."\n".
                                       '// <![CDATA['."\n".
                                       &Apache::loncommon::check_uncheck_jscript()."\n".
                                       '// ]]>'."\n".
                                       '</script>'."\n");
+                        } elsif ($item eq 'selfcreation') {
+                            $settings = $values->{'usercreation'};
                         }
                         ($output{$item},$rowtotal{$item}) =
                             &Apache::domainprefs::print_config_box($r,$dom,$confname,
-                                $phase,$item,$prefs->{$item},$values->{$item});
+                                $phase,$item,$prefs->{$item},$settings);
                     } else {
                         ($output{$item},$rowtotal{$item}) =
                             &Apache::courseprefs::print_config_box($r,$dom,$phase,