loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

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/;