--- loncom/interface/lonconfigsettings.pm 2010/03/23 20:53:09 1.8.2.2 +++ 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.8.2.2 2010/03/23 20:53:09 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('
'.&Apache::loncommon::end_page()); + $r->print(''); + &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(''."\n"); + } ($output{$item},$rowtotal{$item}) = &Apache::domainprefs::print_config_box($r,$dom,$confname, $phase,$item,$prefs->{$item},$values->{$item}); @@ -267,7 +278,7 @@ sub display_settings { $r->print($output{$items[$i]}); } $r->print(''); - $r->print(&print_footer($r,$phase,'process','Save',\@actions)); + $r->print(&print_footer($r,$phase,'process','Save Changes',\@actions)); } else { $r->print(''. ''.&mt('No settings chosen'). @@ -275,6 +286,34 @@ sub display_settings { } $r->print(''); } + if ($context eq 'course') { + $r->print(' + +'); + } $r->print(&Apache::loncommon::end_page()); return; } @@ -291,14 +330,14 @@ sub display_choices { &Apache::loncommon::check_uncheck_jscript()."\n". '// ]]>'."\n". ''."\n"); - $r->print('