loncom/homework/randomlylabel.pm - diff

Return to randomlylabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

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");