--- loncom/interface/lonconfigsettings.pm	2010/05/22 01:29:27	1.14
+++ loncom/interface/lonconfigsettings.pm	2011/01/13 22:49:47	1.17
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: lonconfigsettings.pm,v 1.14 2010/05/22 01:29:27 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.17 2011/01/13 22:49:47 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,6 +35,7 @@ use Apache::lonnet;
 use Apache::loncommon();
 use Apache::lonhtmlcommon();
 use Apache::lonlocal;
+use Apache::lonparmset();
 
 sub print_header {
     my ($r,$phase,$context,$jscript) = @_;
@@ -119,6 +120,7 @@ $jscript
     }
     $r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle));
+    &Apache::lonparmset::startSettingsScreen($r,'coursepref');
     $r->print('
 <form name="parmform" action="">
 <input type="hidden" name="pres_marker" />
@@ -141,7 +143,7 @@ sub print_footer {
     if (($phase eq 'display') || ($phase eq 'process')) {
         if (ref($actions) eq 'ARRAY') {
             foreach my $item (@{$actions}) {
-                $r->print('<input type="hidden" name="actions" value="'.$item.'" />')."\n";
+                $r->print('<input type="hidden" name="actions" value="'.$item.'" />'."\n");
             }
         }
     }
@@ -159,7 +161,9 @@ sub print_footer {
                   $button_text.'" onclick='.$onclick.' /></p>');
     }
     if ($phase eq 'process') {
-        $r->print('</form>'.&Apache::loncommon::end_page());
+        $r->print('</form>');
+        &Apache::lonparmset::endSettingsScreen($r);
+        $r->print(&Apache::loncommon::end_page());
     }
     return;
 }
@@ -251,6 +255,13 @@ sub display_settings {
                 if (grep(/^\Q$item\E$/,@actions)) {
                     push(@items,$item);
                     if ($context eq 'domain') {
+                        if ($item eq 'usersessions') {
+                            $r->print('<script type="text/javascript">'."\n".
+                                      '// <![CDATA['."\n".
+                                      &Apache::loncommon::check_uncheck_jscript()."\n".
+                                      '// ]]>'."\n".
+                                      '</script>'."\n");
+                        }
                         ($output{$item},$rowtotal{$item}) =
                             &Apache::domainprefs::print_config_box($r,$dom,$confname,
                                 $phase,$item,$prefs->{$item},$values->{$item});