version 1.87, 2002/09/05 19:33:55
|
version 1.88, 2002/09/16 17:40:09
|
Line 52 use Image::Magick;
|
Line 52 use Image::Magick;
|
|
|
BEGIN { |
BEGIN { |
|
|
&Apache::lonxml::register('Apache::londefdef',('m','html','head','map','select','option','input','textarea','form','meta','title','body','center','b','strong','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u','output','param','applet','img','embed','allow','frameset','pre','insert','div','externallink','table','tr','th','td','blankspace','bubble','bubbles','bubbleline')); |
&Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','u','ul','var','wbr')); |
|
|
} |
} |
|
|
Line 1089 EDITBUTTON
|
Line 1089 EDITBUTTON
|
my $tempor_var = $stackref->[$#$stackref]; |
my $tempor_var = $stackref->[$#$stackref]; |
if (index($tempor_var,'name') != -1 ) { |
if (index($tempor_var,'name') != -1 ) { |
$tempor_var =~ s/name=([^,]*),/$1/g; |
$tempor_var =~ s/name=([^,]*),/$1/g; |
# $currentstring .= " \\label{$tempor_var}"; |
|
} elsif (index($tempor_var,'href') != -1 ) { |
} elsif (index($tempor_var,'href') != -1 ) { |
$tempor_var =~ s/href=([^,]*),/$1/g; |
$tempor_var =~ s/href=([^,]*),/$1/g; |
$currentstring .= " \\ref{$tempor_var}"; |
$currentstring .= " \\ref{$tempor_var}"; |
Line 1822 sub start_embed {
|
Line 1821 sub start_embed {
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
#-- <abbr> tag |
|
sub start_abbr { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_abbr { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <acronym> tag |
|
sub start_acronym { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_acronym { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <area> tag |
|
sub start_area { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_area { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <base> tag |
|
sub start_base { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_base { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <bdo> tag |
|
sub start_bdo { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_bdo { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <bgsound> tag |
|
sub start_bgsound { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_bgsound { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <blink> tag |
|
sub start_blink { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_blink { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <blockquote> tag |
|
sub start_blockquote { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_blockquote { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <button> tag |
|
sub start_button { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_button { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <caption> tag |
|
sub start_caption { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_caption { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <col> tag |
|
sub start_col { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_col { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <colgroup> tag |
|
sub start_colgroup { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_colgroup { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <del> tag |
|
sub start_del { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_del { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <fieldset> tag |
|
sub start_fieldset { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_fieldset { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <frame> tag |
|
sub start_frame { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_frame { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <iframe> tag |
|
sub start_iframe { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_iframe { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <ins> tag |
|
sub start_ins { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_ins { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <isindex> tag |
|
sub start_isindex { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_isindex { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <keygen> tag |
|
sub start_keygen { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_keygen { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <label> tag |
|
sub start_label { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_label { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <layer> tag |
|
sub start_layer { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_layer { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <legend> tag |
|
sub start_legend { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_legend { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <link> tag |
|
sub start_link { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_link { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <marquee> tag |
|
sub start_marquee { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_marquee { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <malticol> tag |
|
sub start_malticol { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_malticol { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <nobr> tag |
|
sub start_nobr { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_nobr { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <noembed> tag |
|
sub start_noembed { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_noembed { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <noframes> tag |
|
sub start_noframes { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_noframes { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <nolayer> tag |
|
sub start_nolayer { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_nolayer { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <noscript> tag |
|
sub start_noscript { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_noscript { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <object> tag |
|
sub start_object { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_object { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <optgroup> tag |
|
sub start_optgroup { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_optgroup { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <samp> tag |
|
sub start_samp { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_samp { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <server> tag |
|
sub start_server { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_server { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <spacer> tag |
|
sub start_spacer { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_spacer { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <span> tag |
|
sub start_span { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_span { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <tbody> tag |
|
sub start_tbody { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_tbody { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <tfoot> tag |
|
sub start_tfoot { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_tfoot { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <thead> tag |
|
sub start_thead { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_thead { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <var> tag |
|
sub start_var { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_var { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
|
#-- <wbr> tag |
|
sub start_wbr { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[4]; |
|
} |
|
return $currentstring; |
|
} |
|
sub end_wbr { |
|
my ($target,$token) = @_; |
|
my $currentstring = ''; |
|
if ($target eq 'web') { |
|
$currentstring = $token->[2]; |
|
} |
|
return $currentstring; |
|
} |
1; |
1; |
__END__ |
__END__ |