--- loncom/xml/londefdef.pm 2003/05/07 17:24:16 1.132 +++ loncom/xml/londefdef.pm 2003/05/21 14:57:31 1.134 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.132 2003/05/07 17:24:16 sakharuk Exp $ +# $Id: londefdef.pm,v 1.134 2003/05/21 14:57:31 sakharuk Exp $ # # # Copyright Michigan State University Board of Trustees @@ -2224,7 +2224,29 @@ sub start_frameset { $currentstring.=''. &Apache::lonmenu::registerurl(undef,$target).''; } - $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; } @@ -3102,6 +3124,26 @@ sub end_wbr { return $currentstring; } + +#-- tag +sub start_hideweboutput { + my ($target,$token) = @_; + if ($target eq 'web') { + &Apache::lonxml::startredirection(); + } + return ''; +} + +sub end_hideweboutput { + my ($target,$token) = @_; + my $currentstring = ''; + if ($target eq 'web') { + $currentstring = &Apache::lonxml::endredirection(); + } + return ''; +} + + sub image_replication { my $src = shift; if (not -e $src) {