[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 30 Jan 2003 23:30:24 -0000


albertel		Thu Jan 30 18:30:24 2003 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  - Yea! The XML version of the menu now will successfully call to onunload handler, adn got to /adm/logout
  
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.107 loncom/xml/londefdef.pm:1.108
--- loncom/xml/londefdef.pm:1.107	Wed Jan 15 21:55:05 2003
+++ loncom/xml/londefdef.pm	Thu Jan 30 18:30:24 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.107 2003/01/16 02:55:05 albertel Exp $
+# $Id: londefdef.pm,v 1.108 2003/01/30 23:30:24 albertel Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -353,7 +353,7 @@
 		  delete($token->[2]->{$key});
 		}
 	      }
-	      $token->[2]->{'onLoad'}=&Apache::lonxml::loadevents().
+	      $token->[2]->{'onload'}=&Apache::lonxml::loadevents().
 		                       ';'.$onLoad;
 	      my $onUnload='';
 	      foreach my $key (keys(%{$token->[2]})) {
@@ -362,7 +362,7 @@
 		  delete($token->[2]->{$key});
 		}
 	      }
-	      $token->[2]->{'onUnload'}=&Apache::lonxml::unloadevents().
+	      $token->[2]->{'onunload'}=&Apache::lonxml::unloadevents().
 		                         ';'.$onUnload;
 
 	      $currentstring .= '<'.$token->[1];