loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.97, 2008/12/19 14:28:14	version 1.98, 2009/08/03 10:40:00
Line 187 sub end_imageresponse {	Line 187 sub end_imageresponse {

}	}
&Apache::response::end_response();	&Apache::response::end_response();

return $result;	return $result;
}	}

Line 716 sub end_image {	Line 715 sub end_image {
my ($commentline, $restofstuff) = split(/\n/, $src);	my ($commentline, $restofstuff) = split(/\n/, $src);
$graphinclude = $src;	$graphinclude = $src;
$graphinclude =~ s/^$commentline//;	$graphinclude =~ s/^$commentline//;
} else {	} elsif (!($src =~ /\\/)) {
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)=
&Apache::londefdef::image_size($src,0.3,$parstack,$safeeval);	&Apache::londefdef::image_size($src,0.3,$parstack,$safeeval);
$graphinclude = '\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'}';	$graphinclude = '\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'}';
	} else {
	$graphinclude = $src; # Already fully formed.
}	}
$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent '.$graphinclude;	$Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent '.$graphinclude;
}	}