--- loncom/interface/lonparmset.pm	2003/05/27 18:01:39	1.94
+++ 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.94 2003/05/27 18:01:39 sakharuk 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();