version 1.49, 2004/02/23 23:55:40
|
version 1.50, 2004/02/24 18:57:43
|
Line 215 sub displayfoils {
|
Line 215 sub displayfoils {
|
sub clean_up_image { |
sub clean_up_image { |
my ($image)=@_; |
my ($image)=@_; |
if ($image =~ /\s*<img\s*/) { |
if ($image =~ /\s*<img\s*/) { |
($image) = ($image =~ /src\s*=\s*\"([^\"]+)\"/i); |
($image) = ($image =~ /src\s*=\s*[\"\']([^\"\']+)[\"\']/i); |
if ($image !~ /^http:/) { |
if ($image !~ /^http:/) { |
$image=&Apache::lonnet::hreflocation('',$image); |
$image=&Apache::lonnet::hreflocation('',$image); |
} |
} |