--- loncom/homework/drawimage.pm 2008/03/12 02:46:52 1.10 +++ loncom/homework/drawimage.pm 2024/04/05 02:31:23 1.11 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # programatic image drawing # -# $Id: drawimage.pm,v 1.10 2008/03/12 02:46:52 raeburn Exp $ +# $Id: drawimage.pm,v 1.11 2024/04/05 02:31:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -98,11 +98,12 @@ sub end_text { my $font = &Apache::lonxml::get_param('font',$parstack,$safeeval); my $color = &Apache::lonxml::get_param('color',$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(); $text = &escape($text); $args{"cgi.$cgi_id.OBJTYPE"}.='LABEL:'; 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; }