--- loncom/interface/lonparmset.pm 2003/05/23 06:18:25 1.92
+++ loncom/interface/lonparmset.pm 2003/06/04 18:24:33 1.97
@@ -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.97 2003/06/04 18:24:33 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();
@@ -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{$_}) {