[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];