version 1.28, 2006/05/30 12:45:37
|
version 1.29, 2007/09/25 22:56:48
|
Line 271 sub handler {
|
Line 271 sub handler {
|
my $r = shift; |
my $r = shift; |
$r->content_type('image/png'); |
$r->content_type('image/png'); |
$r->send_http_header; |
$r->send_http_header; |
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); |
|
my $image; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
my $prefix="cgi.$id."; |
|
|
my $prefix; |
if ($ENV{'QUERY_STRING'}=~/OBJCOUNT\=/) { |
if ($ENV{'QUERY_STRING'}=~/OBJCOUNT\=/) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
|
$prefix='form.'; |
$prefix='form.'; |
|
} else { |
|
$prefix="cgi.$env{'form.token'}."; |
} |
} |
|
|
|
my $image; |
if (defined($env{$prefix."BGIMG"})) { |
if (defined($env{$prefix."BGIMG"})) { |
my $bgimg=&unescape($env{$prefix."BGIMG"}); |
my $bgimg=&unescape($env{$prefix."BGIMG"}); |
#&Apache::lonnet::logthis("BGIMG is ".$bgimg); |
#&Apache::lonnet::logthis("BGIMG is ".$bgimg); |
$image=&get_image($bgimg,0); |
$image=&get_image($bgimg,0); |
if (! defined($image)) { |
if (! defined($image)) { |
&Apache::lonnet::logthis('Unable to create image object for -'. |
&Apache::lonnet::logthis('Unable to create image object for -'. |
$id.'-'.$bgimg); |
$env{'form.token'}.'-'.$bgimg); |
return OK; |
return OK; |
} |
} |
} elsif (defined($env{$prefix."SIZE"})) { |
} elsif (defined($env{$prefix."SIZE"})) { |
Line 301 sub handler {
|
Line 305 sub handler {
|
$image->transparent($bgcolor); |
$image->transparent($bgcolor); |
} |
} |
} else { |
} else { |
&Apache::lonnet::logthis('Unable to create image object, no info'); |
&Apache::lonnet::logthis('Unable to create image object, no info '.$prefix); |
return OK; |
return OK; |
} |
} |
#binmode(STDOUT); |
#binmode(STDOUT); |