--- loncom/interface/lonparmset.pm 2003/05/23 06:18:25 1.92 +++ loncom/interface/lonparmset.pm 2003/06/04 18:22:52 1.96 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.92 2003/05/23 06:18:25 albertel Exp $ +# $Id: lonparmset.pm,v 1.96 2003/06/04 18:22:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -58,6 +58,7 @@ use Apache::lonnet; use Apache::Constants qw(:common :http REDIRECT); use Apache::lonhtmlcommon(); use Apache::loncommon; +use Apache::lonmenu; use GDBM_File; use Apache::lonhomework; use Apache::lonxml; @@ -287,8 +288,12 @@ sub plink { sub startpage { my ($r,$id,$udom,$csec,$uname)=@_; - my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', - 'onUnload="pclose()"'); + my $bodytag=&Apache::lonmenu::registerurl(). + &Apache::loncommon::bodytag('Set Course Parameters','', + 'onUnload="'. + &Apache::lonmenu::unloadevents().';pclose();" onLoad="'. + &Apache::lonmenu::loadevents().'"'). + &Apache::lonmenu::regflush(); my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. &Apache::loncommon::selectstudent_link('parmform','uname','udom'); my $selscript=&Apache::loncommon::studentbrowser_javascript(); @@ -342,8 +347,8 @@ $selscript $bodytag -Use Assignment Parameter Helper, a -simpler interface to set open, due, or answer open dates for problems or sequences. +

Course Environment

@@ -1453,7 +1458,8 @@ sub crsenv { 'hideemptyrows' => 'Hide Empty Rows in Spreadsheets
'. '("yes" for default hiding)', 'pageseparators' => 'Visibly Separate Items on Pages
'. - '("yes" for visible separation)', + '("yes" for visible separation, '. + 'changes will not show until next login)', 'pch.roles.denied'=> 'Disallow Resource Discussion for '. 'Roles
"st": '. 'student, "ta": '. @@ -1484,7 +1490,10 @@ sub crsenv { 'rndseed' => 'Randomization algorithm used
'. 'Modifying this will make problems '. - 'have different numbers and answers' + 'have different numbers and answers', + 'problem_stream_switch' + => 'Allow problems to be splitted over pages
'. + ' (yes if allow anything else if not)' ); foreach (keys(%values)) { unless ($descriptions{$_}) {