loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.132, 2003/05/07 17:24:16
+version 1.133, 2003/05/12 20:13:36
  Line 2224  sub start_frameset {
  	    $currentstring.='<head>'.
  		&Apache::lonmenu::registerurl(undef,$target).'</head>';
  	}
- 	$currentstring .= $token->[4];
+ 	my $onLoad='';
+ 	foreach my $key (keys(%{$token->[2]})) {
+ 	    if ($key =~ /^onload$/i) {
+ 		$onLoad.=$token->[2]->{$key}.';';
+ 		delete($token->[2]->{$key});
+ 	    }
+ 	}
+ 	$token->[2]->{'onload'}=&Apache::lonmenu::loadevents().';'.$onLoad;
+ 	my $onUnload='';
+ 	foreach my $key (keys(%{$token->[2]})) {
+ 	    if ($key =~ /^onunload$/i) {
+ 		$onUnload.=$token->[2]->{$key}.';';
+ 		delete($token->[2]->{$key});
+ 	    }
+ 	}
+ 	$token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents().
+ 	    ';'.$onUnload;
+ 	$currentstring .= '<'.$token->[1];
+ 	foreach (keys %{$token->[2]}) {
+ 	    $currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
+ 	}
+ 	$currentstring.='>';
      }
      return $currentstring;
  }