version 1.12, 2003/11/11 00:39:33
|
version 1.12.2.1, 2004/02/11 21:52:56
|
Line 60 sub get_image {
|
Line 60 sub get_image {
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('image/png'); |
$r->content_type('image/png'); |
|
$r->send_http_header; |
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); |
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); |
my $image=&get_image(&Apache::lonnet::unescape($ENV{"cgi.$id.BGIMG"}),0); |
my $image=&get_image(&Apache::lonnet::unescape($ENV{"cgi.$id.BGIMG"}),0); |
if (! defined($image)) { |
if (! defined($image)) { |