--- loncom/interface/lonparmset.pm	2003/05/27 17:38:47	1.93
+++ loncom/interface/lonparmset.pm	2003/05/27 21:22:13	1.95
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.93 2003/05/27 17:38:47 bowersj2 Exp $
+# $Id: lonparmset.pm,v 1.95 2003/05/27 21:22:13 www 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();
@@ -1485,7 +1490,10 @@ sub crsenv {
 	     'rndseed'
 	         => '<b>Randomization algorithm used</b> <br />'.
                     '<font color="red">Modifying this will make problems '.
-                    'have different numbers and answers</font>'
+                    'have different numbers and answers</font>',
+             'problem_stream_switch'
+                 => '<b>Allow problems to be splitted over pages</b><br />'.
+                    ' (<tt><b>yes</b> if allow anything else if not</tt>)'
              );
 	foreach (keys(%values)) {
 	    unless ($descriptions{$_}) {