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; |
} |
} |