version 1.6, 2004/09/09 20:35:10
|
version 1.7, 2005/02/17 09:01:03
|
Line 217 sub drawimage {
|
Line 217 sub drawimage {
|
|
|
sub handler { |
sub handler { |
my ($r)=@_; |
my ($r)=@_; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
my %data; |
my %data; |
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); |
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); |
my $filename = &Apache::lonnet::unescape($ENV{"imagechoice.$id.file"}); |
my $filename = &Apache::lonnet::unescape($ENV{"imagechoice.$id.file"}); |