loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

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 {