|
version 1.9, 2006/05/30 12:45:36
|
version 1.11, 2024/04/05 02:31:23
|
|
Line 64 sub end_drawimage {
|
Line 64 sub end_drawimage {
|
| src='/adm/randomlabel.png?token=$cgi_id' />\n"; |
src='/adm/randomlabel.png?token=$cgi_id' />\n"; |
| $args{"cgi.$cgi_id.SIZE"}=join(':',($width,$height)); |
$args{"cgi.$cgi_id.SIZE"}=join(':',($width,$height)); |
| $args{"cgi.$cgi_id.BGCOLOR"}=join(':',($bgcolor)); |
$args{"cgi.$cgi_id.BGCOLOR"}=join(':',($bgcolor)); |
| &Apache::lonnet::appenv(%args); |
&Apache::lonnet::appenv(\%args); |
| if (@cgi_ids) { |
if (@cgi_ids) { |
| $cgi_id=pop(@cgi_ids); |
$cgi_id=pop(@cgi_ids); |
| } else { |
} else { |
|
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; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to drawimage.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework