loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.54, 2002/04/26 18:18:37	version 1.55, 2002/04/26 18:25:56
Line 1390 EDITBUTTON	Line 1390 EDITBUTTON
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);	my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
my $file;	my $file;
my $path;	my $path;
	if ($src =~ m!(.)/([^/])$!) {
	$file = $2;
	$path = $1;
	} else {
	$path = $Apache::lonxml::pwd[-1];
	$file = $src;
	}
$file=~s/(\.gif\|\.jpg)$/\.eps/;	$file=~s/(\.gif\|\.jpg)$/\.eps/;
if ($path) {	if ($path) {
$currentstring .= '\graphicspath{{'.$path.'/}}\fbox{\includegraphics{'.$file.'}}';	$currentstring .= '\graphicspath{{'.$path.'/}}\fbox{\includegraphics{'.$file.'}}';