loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

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;