loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.90, 2007/10/15 09:47:29	version 1.91, 2007/10/15 20:20:49
Line 237 sub displayfoils {	Line 237 sub displayfoils {
if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";}	if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";}
my $image=$Apache::response::foilgroup{"$name.image"};	my $image=$Apache::response::foilgroup{"$name.image"};
&Apache::lonxml::debug("image is $image");	&Apache::lonxml::debug("image is $image");
if ( $target eq 'web' && $image !~ /^http:/ ) {	if ( ($target eq 'web' \|\| $target eq 'answer')
	&& $image !~ /^http:/ ) {
$image=&clean_up_image($image);	$image=&clean_up_image($image);
}	}
push(@images,$image);	push(@images,$image);
Line 302 sub display_answers {	Line 303 sub display_answers {
foreach my $name (@$whichopt) {	foreach my $name (@$whichopt) {
my $image=$Apache::response::foilgroup{"$name.image"};	my $image=$Apache::response::foilgroup{"$name.image"};
&Apache::lonxml::debug("image is $image");	&Apache::lonxml::debug("image is $image");
if ( $target eq 'web' && $image !~ /^http:/ ) {	if ( ($target eq 'web' \|\| $target eq 'answer')
	&& $image !~ /^http:/ ) {
$image = &clean_up_image($image);	$image = &clean_up_image($image);
}	}
my $token=&prep_image($image,'answeronly',$name);	my $token=&prep_image($image,'answeronly',$name);