Return to londefdef.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.436, 2011/11/14 00:20:42 | version 1.438, 2012/03/01 21:13:36 |
---|---|
Line 1 | Line 1 |
# The LearningOnline Network with CAPA | # The LearningOnline Network with CAPA |
# Tags Default Definition Module | # Tags Default Definition Module |
# | # |
Line 56 use LONCAPA(); | Line 55 use LONCAPA(); |
BEGIN { | BEGIN { |
&Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','accessrule','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','tthoption','u','ul','var','wbr','hideweboutput')); | &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','accessrule','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','style','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr','hideweboutput')); |
} | } |
Line 459 sub insert_meta { | Line 458 sub insert_meta { |
<meta />'; | <meta />'; |
} | } |
#-- <start> tag | |
sub start_style { | |
my ($target, $token, $tagstack, $parstack, $parser, $safeeval, $style) = @_; | |
my $currentstring = ''; | |
if ($target eq 'tex') { | |
Apache::lonxml::startredirection(); | |
} else { | |
$currentstring = $token->[4]; | |
} | |
return $currentstring; | |
} | |
sub end_style { | |
my ($target, $token, $tagstack, $parstack, $parser, $safeeval) = @_; | |
my $currentstring = ''; | |
if ($target eq 'tex') { | |
Apache::lonxml::endredirection(); | |
} else { | |
$currentstring = $token->[2]; | |
} | |
return $currentstring; | |
} | |
# accessrule | # accessrule |
sub start_accessrule { | sub start_accessrule { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; | my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
Line 2972 sub end_embed { | Line 2997 sub end_embed { |
#-- <param> tag (end tag forbidden) | #-- <param> tag (end tag forbidden) |
sub start_param { | sub start_param { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; | my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
if (&Apache::lonxml::get_param('name',$parstack, | my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval, |
$safeeval,undef,1)=~/^cabbase$/i) { | undef,1); |
if ($name =~/^cabbase$/i) { | |
my $value=&Apache::lonxml::get_param('value',$parstack, | my $value=&Apache::lonxml::get_param('value',$parstack, |
$safeeval,undef,1); | $safeeval,undef,1); |
&Apache::lonxml::extlink($value); | &Apache::lonxml::extlink($value); |
} | } elsif ($name eq 'flashvars') { |
if (lc(&Apache::lonxml::get_param('type',$parstack,$safeeval,-2,1)) | |
eq 'application/x-shockwave-flash') { | |
my $launcher = | |
&Apache::lonxml::get_param('data',$parstack,$safeeval,-2,1); | |
if ($launcher) { | |
&Apache::lonxml::extlink($launcher); | |
} | |
my $flashvars=&Apache::lonxml::get_param('value',$parstack, | |
$safeeval,undef,1); | |
if ($flashvars ne '') { | |
foreach my $item (split(/\&/,$flashvars)) { | |
my ($key,$value)=split(/=/,$item,2); | |
if ($key eq 'content') { | |
if ($value ne '') { | |
my ($dir) = ($launcher =~ m{(.+/)[^/]+$}); | |
&Apache::lonxml::extlink($dir.$value); | |
} | |
} elsif ($key eq 'thumb') { | |
if ($value ne '') { | |
&Apache::lonxml::extlink($value); | |
} | |
} | |
} | |
} | |
} | |
} | |
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); | my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); |
&Apache::lonxml::extlink($src); | if ($src ne '') { |
&Apache::lonxml::extlink($src); | |
} | |
my $currentstring = ''; | my $currentstring = ''; |
if ($target eq 'web' || $target eq 'webgrade') { | if ($target eq 'web' || $target eq 'webgrade') { |
my %toconvert; | my %toconvert; |
my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); | |
if ($src) { $toconvert{'src'}= $src; } | if ($src) { $toconvert{'src'}= $src; } |
my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval, | |
undef,1); | |
if ($name=~/^cabbase$/i) { | if ($name=~/^cabbase$/i) { |
$toconvert{'value'}=&Apache::lonxml::get_param('value',$parstack, | $toconvert{'value'}=&Apache::lonxml::get_param('value',$parstack, |
$safeeval,undef,1); | $safeeval,undef,1); |