version 1.435, 2011/10/26 02:09:45
|
version 1.437, 2012/02/05 22:53:42
|
Line 1
|
Line 1
|
|
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Tags Default Definition Module |
# Tags Default Definition Module |
# |
# |
Line 545 sub start_body {
|
Line 544 sub start_body {
|
# Breadcrumbs |
# Breadcrumbs |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
|
my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'}); |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Construction Space', |
'text' => 'Construction Space', |
'href' => &Apache::loncommon::authorspace(), |
'href' => &Apache::loncommon::authorspace($url), |
}); |
}); |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'HTML Editor', |
'text' => 'HTML Editor', |
Line 2971 sub end_embed {
|
Line 2971 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); |