version 1.27, 2005/11/15 20:46:27
|
version 1.28, 2006/05/30 12:45:37
|
Line 205 use GD;
|
Line 205 use GD;
|
use GD::Polyline(); |
use GD::Polyline(); |
use LWP::UserAgent(); |
use LWP::UserAgent(); |
use Apache::lonnet; |
use Apache::lonnet; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
sub get_image { |
sub get_image { |
my ($imgsrc,$set_trans)=@_; |
my ($imgsrc,$set_trans)=@_; |
Line 276 sub handler {
|
Line 279 sub handler {
|
$prefix='form.'; |
$prefix='form.'; |
} |
} |
if (defined($env{$prefix."BGIMG"})) { |
if (defined($env{$prefix."BGIMG"})) { |
my $bgimg=&Apache::lonnet::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)) { |
Line 371 sub handler {
|
Line 374 sub handler {
|
} elsif ($type eq 'IMAGE') { |
} elsif ($type eq 'IMAGE') { |
my ($x,$y,$file,$transparent,$srcX,$srcY,$destW,$destH,$srcW, |
my ($x,$y,$file,$transparent,$srcX,$srcY,$destW,$destH,$srcW, |
$srcH)=split(':',$env{$prefix."OBJ$i"}); |
$srcH)=split(':',$env{$prefix."OBJ$i"}); |
$file=&Apache::lonnet::unescape($file); |
$file=&unescape($file); |
if (!defined($transparent)) { $transparent=1; } |
if (!defined($transparent)) { $transparent=1; } |
my $subimage=&get_image($file,$transparent); |
my $subimage=&get_image($file,$transparent); |
if (!defined($subimage)) { |
if (!defined($subimage)) { |
Line 388 sub handler {
|
Line 391 sub handler {
|
} elsif ($type eq 'LABEL') { |
} elsif ($type eq 'LABEL') { |
my ($x,$y,$text,$font,$color,$direction)= |
my ($x,$y,$text,$font,$color,$direction)= |
split(':',$env{$prefix."OBJ$i"}); |
split(':',$env{$prefix."OBJ$i"}); |
$text=&Apache::lonnet::unescape($text); |
$text=&unescape($text); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $type='normal'; |
my $type='normal'; |
my ($height,$fontref); |
my ($height,$fontref); |