version 1.118, 2003/02/19 14:30:10
|
version 1.119, 2003/02/20 17:07:14
|
Line 324 sub start_html {
|
Line 324 sub start_html {
|
} |
} |
#-- <meta> tag |
#-- <meta> tag |
sub start_meta { |
sub start_meta { |
my ($target,$token,$tagstack,$parstack,$parser) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
my $args=''; |
my $args=''; |
Line 336 sub start_html {
|
Line 336 sub start_html {
|
} |
} |
} |
} |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
unless ($token->[2]->{'http-equiv'}) { |
unless (&Apache::lonxml::get_param |
|
('http-equiv',$parstack,$safeeval,undef,1)) { |
my $name=$token->[2]->{'name'}; |
my $name=$token->[2]->{'name'}; |
$name=~tr/A-Z/a-z/; |
$name=~tr/A-Z/a-z/; |
$name=~s/\s/\_/g; |
$name=~s/\s/\_/gs; |
|
$name=~s/\W//gs; |
if ($name) { |
if ($name) { |
$currentstring='<'.$name.'>'. |
$currentstring='<'.$name.'>'. |
$token->[2]->{'content'}. |
&Apache::lonxml::get_param |
|
('content',$parstack,$safeeval,undef,1). |
'</'.$name.'>'; |
'</'.$name.'>'; |
} |
} |
} |
} |
Line 1673 sub start_table {
|
Line 1676 sub start_table {
|
} |
} |
} else { |
} else { |
#original image file doesn't exist so check the alt attribute |
#original image file doesn't exist so check the alt attribute |
my $alt = &Apache::lonxml::get_param('alt',$parstack,$safeeval,undef,1); |
my $alt = |
|
&Apache::lonxml::get_param('alt',$parstack,$safeeval,undef,1); |
|
unless ($alt) { |
|
$alt=&Apache::lonmeta::alttag |
|
($Apache::lonxml::pwd[-1],$src); |
|
} |
|
|
if ($alt) { |
if ($alt) { |
$currentstring .= ' '.$alt.' '; |
$currentstring .= ' '.$alt.' '; |
} else { |
} else { |
Line 1683 sub start_table {
|
Line 1692 sub start_table {
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
sub end_img { |
sub end_img { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
Line 1696 sub start_table {
|
Line 1706 sub start_table {
|
#-- <applet> tag |
#-- <applet> tag |
|
|
sub start_applet { |
sub start_applet { |
my ($target,$token) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
|
$token->[2]->{'code'}; |
my $code=&Apache::lonxml::get_param |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
('code',$parstack,$safeeval,undef,1); |
$token->[2]->{'archive'}; |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$code; |
|
|
|
my $archive=&Apache::lonxml::get_param |
|
('archive',$parstack,$safeeval,undef,1); |
|
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$archive; |
|
|
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
if ($ENV{'browser.appletsuppress'} ne 'on') { |
if ($ENV{'browser.appletsuppress'} ne 'on') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} else { |
} else { |
my $alttag=$token->[2]->{'alt'}; |
my $alttag= &Apache::lonxml::get_param |
|
('alt',$parstack,$safeeval,undef,1); |
unless ($alttag) { |
unless ($alttag) { |
$alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'}, |
$alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1], |
$token->[2]->{'code'}); |
$code); |
} |
} |
$currentstring='[APPLET: '.$alttag.']'; |
$currentstring='[APPLET: '.$alttag.']'; |
} |
} |
Line 1718 sub start_table {
|
Line 1734 sub start_table {
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
sub end_applet { |
sub end_applet { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
Line 1732 sub end_applet {
|
Line 1749 sub end_applet {
|
#-- <embed> tag |
#-- <embed> tag |
|
|
sub start_embed { |
sub start_embed { |
my ($target,$token) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); |
$token->[2]->{'src'}; |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
if ($ENV{'browser.embedsuppress'} ne 'on') { |
if ($ENV{'browser.embedsuppress'} ne 'on') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} else { |
} else { |
my $alttag=$token->[2]->{'alt'}; |
my $alttag=&Apache::lonxml::get_param |
|
('alt',$parstack,$safeeval,undef,1); |
unless ($alttag) { |
unless ($alttag) { |
$alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'}, |
$alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],$src); |
$token->[2]->{'src'}); |
|
} |
} |
$currentstring='[EMBED: '.$alttag.']'; |
$currentstring='[EMBED: '.$alttag.']'; |
} |
} |
Line 1752 sub start_embed {
|
Line 1769 sub start_embed {
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
sub end_embed { |
sub end_embed { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
Line 1766 sub start_embed {
|
Line 1784 sub start_embed {
|
#-- <param> tag |
#-- <param> tag |
|
|
sub start_param { |
sub start_param { |
my ($target,$token) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
if ($token->[2]->{'name'} eq 'cabbase') { |
if (&Apache::lonxml::get_param |
|
('name',$parstack,$safeeval,undef,1)=~/^cabbase$/i) { |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$token->[2]->{'value'}; |
&Apache::lonxml::get_param |
|
('value',$parstack,$safeeval,undef,1); |
} |
} |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$token->[2]->{'src'}; |
&Apache::lonxml::get_param |
|
('src',$parstack,$safeeval,undef,1); |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
Line 1794 sub start_embed {
|
Line 1815 sub start_embed {
|
#-- <allow> tag |
#-- <allow> tag |
sub start_allow { |
sub start_allow { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
|
$token->[2]->{'src'}; |
|
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); |
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src); |
|
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src; |
&image_replication($src); |
&image_replication($src); |
my $result; |
my $result; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |