[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[www]

www		Tue May 27 17:22:13 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  Bug #1501: hope I got it this time around.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.94 loncom/interface/lonparmset.pm:1.95
--- loncom/interface/lonparmset.pm:1.94	Tue May 27 14:01:39 2003
+++ loncom/interface/lonparmset.pm	Tue May 27 17:22:13 2003
@@ -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::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 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();