version 1.7, 2004/09/09 07:24:56
|
version 1.8, 2004/09/09 07:34:48
|
Line 262 sub end_image {
|
Line 262 sub end_image {
|
my $result; |
my $result; |
if ($target eq 'web' || $target eq 'tex') { |
if ($target eq 'web' || $target eq 'tex') { |
my $bgimg=&Apache::lonxml::endredirection(); |
my $bgimg=&Apache::lonxml::endredirection(); |
&Apache::lonnet::logthis("image $bgimg"); |
|
my $x = &Apache::lonxml::get_param('x',$parstack,$safeeval); |
my $x = &Apache::lonxml::get_param('x',$parstack,$safeeval); |
my $y = &Apache::lonxml::get_param('y',$parstack,$safeeval); |
my $y = &Apache::lonxml::get_param('y',$parstack,$safeeval); |
my $clipx = &Apache::lonxml::get_param('clipx',$parstack,$safeeval); |
my $clipx = &Apache::lonxml::get_param('clipx',$parstack,$safeeval); |
Line 278 sub end_image {
|
Line 277 sub end_image {
|
my $transparent = |
my $transparent = |
&Apache::lonxml::get_param('transparent',$parstack,$safeeval); |
&Apache::lonxml::get_param('transparent',$parstack,$safeeval); |
$bgimg=&Apache::imageresponse::clean_up_image($bgimg); |
$bgimg=&Apache::imageresponse::clean_up_image($bgimg); |
&Apache::lonnet::logthis("image af clean $bgimg"); |
|
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++; |
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++; |
$args{"cgi.$cgi_id.OBJTYPE"}.='IMAGE:'; |
$args{"cgi.$cgi_id.OBJTYPE"}.='IMAGE:'; |
$args{"cgi.$cgi_id.OBJ$i"} = |
$args{"cgi.$cgi_id.OBJ$i"} = |