loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.53, 2003/11/11 00:25:24	version 1.54, 2004/01/08 20:05:13
Line 124 sub start_randomlabel {	Line 124 sub start_randomlabel {
$temp_file = Apache::File->new('>>'.$filename);	$temp_file = Apache::File->new('>>'.$filename);
$newbgimg =~ s/(.*)\/res\//\/home\/httpd\/html\/res\//;	$newbgimg =~ s/(.*)\/res\//\/home\/httpd\/html\/res\//;
print $temp_file "$newbgimg\n";	print $temp_file "$newbgimg\n";
$bgimg=~s/\/home\/httpd\/html\/res/\/home\/httpd\/prtspool/; }	$bgimg=~s/\/home\/httpd\/html\/res/\/home\/httpd\/prtspool/;
	$bgimg=~s\|\/home\/([^\/]*)\/public_html\/\|\/home\/httpd\/prtspool\/$1\/\|;
	}
}	}
}	}
$bgimg=~s/\/$//;	$bgimg=~s/\/$//;