version 1.88, 2002/09/16 17:40:09
|
version 1.89, 2002/09/16 19:06:57
|
Line 1711 sub start_embed {
|
Line 1711 sub start_embed {
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
#-- <allow> tag |
#-- <allow> tag |
|
|
sub start_allow { |
sub start_allow { |
my ($target,$token) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
|
|
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$token->[2]->{'src'}; |
$token->[2]->{'src'}; |
|
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval); |
|
if (not -e '/home/httpd/html'.$src) { |
|
#replicates image itself |
|
&Apache::lonnet::repcopy($src); |
|
#replicates eps or ps |
|
my $newsrc = $src; |
|
$newsrc =~ s/(.gif|.jpg)$/.eps/; |
|
if (not-e $newsrc && &Apache::lonnet::repcopy($newsrc) ne 'OK') { |
|
$newsrc =~ s/\.ps$/\.eps/; |
|
&Apache::lonnet::repcopy($newsrc); |
|
} |
|
} |
return ''; |
return ''; |
} |
} |
sub end_allow { |
sub end_allow { |