--- loncom/interface/lonconfigsettings.pm 2010/12/24 22:50:34 1.15.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.15.2.2 2010/12/24 22:50:34 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('
@@ -159,7 +161,9 @@ sub print_footer { $button_text.'" onclick='.$onclick.' />

'); } if ($phase eq 'process') { - $r->print('
'.&Apache::loncommon::end_page()); + $r->print(''); + &Apache::lonparmset::endSettingsScreen($r); + $r->print(&Apache::loncommon::end_page()); } return; } @@ -282,6 +286,34 @@ sub display_settings { } $r->print(''); } + if ($context eq 'course') { + $r->print(' + +'); + } $r->print(&Apache::loncommon::end_page()); return; }