version 1.30, 2007/09/25 23:16:13
|
version 1.31, 2008/12/19 14:28:14
|
Line 213 sub get_image {
|
Line 213 sub get_image {
|
my ($imgsrc,$set_trans)=@_; |
my ($imgsrc,$set_trans)=@_; |
my $image; |
my $image; |
if ($imgsrc !~ m|^(/home/)|) { |
if ($imgsrc !~ m|^(/home/)|) { |
if ($imgsrc !~ /^http:/) { |
if ($imgsrc !~ /^https?\:/) { |
$imgsrc="http://".$ENV{'HTTP_HOST'}.$imgsrc; |
$imgsrc=&Apache::lonnet::absolute_url($ENV{'HTTP_HOST'}).$imgsrc; |
} |
} |
my $ua=new LWP::UserAgent; |
my $ua=new LWP::UserAgent; |
my $request=new HTTP::Request('GET',"$imgsrc"); |
my $request=new HTTP::Request('GET',"$imgsrc"); |