loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/imageresponse.pm between versions 1.68 and 1.72

version 1.68, 2005/05/10 11:24:01	version 1.72, 2005/06/22 12:03:23
Line 347 sub start_foil {	Line 347 sub start_foil {
if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'tex' \|\|	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'tex' \|\|
$target eq 'analyze') {	$target eq 'analyze') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
if (!$name) {	if ($name eq "") {
&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction.");	&Apache::lonxml::warning("Foils without names exist. This can cause problems to malfunction.");
$name=$Apache::lonxml::curdepth;	$name=$Apache::lonxml::curdepth;
}	}
if (defined($Apache::response::foilnames{$name})) {	if (defined($Apache::response::foilnames{$name})) {
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)=

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.68
changed lines
	Added in v.1.72