loncom/homework/drawimage.pm - diff

Return to drawimage.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.10, 2008/03/12 02:46:52	version 1.11, 2024/04/05 02:31:23
Line 98 sub end_text {	Line 98 sub end_text {
my $font = &Apache::lonxml::get_param('font',$parstack,$safeeval);	my $font = &Apache::lonxml::get_param('font',$parstack,$safeeval);
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval);	my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval);
my $direction = &Apache::lonxml::get_param('direction',$parstack,$safeeval);	my $direction = &Apache::lonxml::get_param('direction',$parstack,$safeeval);
	my $rotation = &Apache::lonxml::get_param('rotation',$parstack,$safeeval);
my $text = &Apache::lonxml::endredirection();	my $text = &Apache::lonxml::endredirection();
$text = &escape($text);	$text = &escape($text);
$args{"cgi.$cgi_id.OBJTYPE"}.='LABEL:';	$args{"cgi.$cgi_id.OBJTYPE"}.='LABEL:';
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++;	my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++;
$args{"cgi.$cgi_id.OBJ$i"}=join(':',($x,$y,$text,$font,$color,$direction));	$args{"cgi.$cgi_id.OBJ$i"}=join(':',($x,$y,$text,$font,$color,$direction,$rotation));
}	}
return $result;	return $result;
}	}