loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.6, 2001/10/24 19:40:50	version 1.7, 2001/10/26 18:47:43
Line 49 sub start_randomlabel {	Line 49 sub start_randomlabel {
if ( $bgimg !~ /^http:/ ) {	if ( $bgimg !~ /^http:/ ) {
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$bgimg;	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$bgimg;
$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg);	$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg);
$bgimg=~s-$Apache::lonnet::perlvar{'lonDocRoot'}--;	if ($bgimg =~ /$Apache::lonnet::perlvar{'lonDocRoot'}/) {
	$bgimg=~s/$Apache::lonnet::perlvar{'lonDocRoot'}//;
	} elsif ($bgimg =~ m:^/home/.*/public_html:) {
	$bgimg =~ s:^/home/(.*)/public_html:/~$1:;
	}
$bgimg="http://".$ENV{'SERVER_NAME'}.$bgimg;	$bgimg="http://".$ENV{'SERVER_NAME'}.$bgimg;
}	}
my $code = &Apache::lonxml::get_param('code',$parstack,$safeeval);	my $code = &Apache::lonxml::get_param('code',$parstack,$safeeval);