version 1.40, 2002/11/08 14:41:53
|
version 1.41, 2002/12/03 10:32:57
|
Line 97 sub start_randomlabel {
|
Line 97 sub start_randomlabel {
|
$result.="BGIMG=".&Apache::lonnet::escape($bgimg); |
$result.="BGIMG=".&Apache::lonnet::escape($bgimg); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $newbgimg = $bgimg; |
my $newbgimg = $bgimg; |
$bgimg=~s/(.gif|.jpg)$/.eps/; |
$bgimg=~s/(.gif|.jpg|.png)$/.eps/; |
$bgimg= &Apache::lonnet::filelocation($bgimg); |
$bgimg= &Apache::lonnet::filelocation($bgimg); |
if (not $ENV{'request.role'}=~/^au\./) { |
if (not $ENV{'request.role'}=~/^au\./) { |
$bgimg=~s/http:\/[^\/]*/\/home\/httpd\/html/; |
$bgimg=~s/http:\/[^\/]*/\/home\/httpd\/html/; |