version 1.34, 2002/08/07 21:49:35
|
version 1.35, 2002/08/27 15:40:07
|
Line 110 sub start_randomlabel {
|
Line 110 sub start_randomlabel {
|
$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/; |
|
$bgimg=~s/\/$//; |
|
if (not-e $bgimg) { |
|
my $response = &Apache::lonnet::repcopy($bgimg); |
|
} |
} else { |
} else { |
$bgimg=~s/http:\/[^\/]*\/~([^\/]+)/\/home\/$1\/public_html/; |
$bgimg=~s/http:\/[^\/]*\/~([^\/]+)/\/home\/$1\/public_html/; |
|
|
} |
} |
$bgimg=~s/\/$//; |
$bgimg=~s/\/$//; |
my $dirtywidth=$texwidth+5; |
my $dirtywidth=$texwidth+5; |