loncom/homework/drawimage.pm - diff

Return to drawimage.pm CVS log

Up to [LON-CAPA] / loncom / homework

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"} =