loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.45, 2004/01/15 19:51:30	version 1.46, 2004/01/28 20:00:26
Line 33 package Apache::imageresponse;	Line 33 package Apache::imageresponse;
use strict;	use strict;
use Image::Magick;	use Image::Magick;
use Apache::randomlylabel;	use Apache::randomlylabel;
	use Apache::londefdef;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);

BEGIN {	BEGIN {
Line 469 sub end_image {	Line 470 sub end_image {
$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';	$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
}	}
} else {	} else {
my $temp_file;	#care about eps dynamical generation
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";	$Apache::response::foilgroup{"$name.image"}='\vskip 0 mm '.&Apache::londefdef::eps_generation($src,$file,$width_param);
$temp_file = Apache::File->new('>>'.$filename);
print $temp_file "$src\n";
$newsrc=~s/\/home\/httpd\/html\/res//;
$newsrc=~s/\/home\/([^\/]*)\/public_html\//\/$1\//;
$newsrc=~s/\/\.\//\//;
$newsrc=~s/\/([^\/]+)\.(ps\|eps)/\//;
$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \graphicspath{{/home/httpd/prtspool'.$newsrc.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
}	}
}	}
return $result;	return $result;