loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.59, 2004/02/23 23:25:39	version 1.60, 2004/03/12 21:01:14
Line 87 sub start_randomlabel {	Line 87 sub start_randomlabel {
my $result='';	my $result='';
push (@Apache::lonxml::namespace,'randomlabel');	push (@Apache::lonxml::namespace,'randomlabel');
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);	my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);
if ( $bgimg !~ /^http:/ ) {	if ( defined($bgimg) && $bgimg !~ /^http:/ ) {
$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg);	$bgimg=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$bgimg);
if (&Apache::lonnet::repcopy($bgimg) ne OK) {	if (&Apache::lonnet::repcopy($bgimg) ne OK) {
$bgimg='/home/httpd/html/adm/lonKaputt/lonlogo_broken.gif';	$bgimg='/home/httpd/html/adm/lonKaputt/lonlogo_broken.gif';