loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.68, 2005/05/10 11:24:01	version 1.70, 2005/06/07 22:43:08
Line 470 sub end_image {	Line 470 sub end_image {

# There may be all sorts of whitespace on fore and aft:	# There may be all sorts of whitespace on fore and aft:

$src =~ s/\s+$//;	$src =~ s/\s+$//s;
$src =~ s/^\s+//;	$src =~ s/^\s+//s;

#	#
# Gnuplot e.g. just generates the latex to put inplace.	# Gnuplot e.g. just generates the latex to put inplace.
#	#
my $graphinclude;	my $graphinclude;
if ($src =~ /^\\graphicspath/) {	if ($src =~ /^%DYNAMICIMAGE/) {
	# This is needed because the newline is not always passed -> tex.
	# At present we don't care about the sizing info.

	my ($commentline, $restofstuff) = split(/\n/, $src);
$graphinclude = $src;	$graphinclude = $src;
	$graphinclude =~ s/^$commentline//;
} else {	} else {
my ($path,$file) = &Apache::londefdef::get_eps_image($src);	my ($path,$file) = &Apache::londefdef::get_eps_image($src);
my ($height_param,$width_param)=	my ($height_param,$width_param)=