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.'}}'; |