loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.191, 2003/11/15 12:46:41	version 1.192, 2004/01/08 19:49:59
Line 2118 sub start_img {	Line 2118 sub start_img {
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
&image_replication($src);	&image_replication($src);
#if original gif/jpg/png file exist do following:	#if original gif/jpg/png file exist do following:
if (-e $src) {	if (-e $src) {
#defines the default size of image	#defines the default size of image
my $image = Image::Magick->new;	my $image = Image::Magick->new;
my $current_figure = $image->Read($src);	my $current_figure = $image->Read($src);
Line 2173 sub start_img {	Line 2173 sub start_img {
$temp_file = Apache::File->new('>>'.$filename);	$temp_file = Apache::File->new('>>'.$filename);
print $temp_file "$src\n";	print $temp_file "$src\n";
$newsrc=~s/\/home\/httpd\/html\/res//;	$newsrc=~s/\/home\/httpd\/html\/res//;
	$newsrc=~s/\/home\/([^\/]*)\/public_html\//\/$1\//;
	$newsrc=~s/\/\.\//\//;
$newsrc=~s/\/([^\/]+)\.(ps\|eps)/\//;	$newsrc=~s/\/([^\/]+)\.(ps\|eps)/\//;
$currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';	$currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
}	}