loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.65, 2005/03/02 22:26:36	version 1.67, 2005/04/07 06:56:22
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# 7/20/2001 Isaac Tsai, initial syntax
# 8/10/2001 Isaac Tsai,
# 8/30/2001 Isaac Tsai,
# SYNTAX:	# SYNTAX:
# <randomlabel bgimg="URL" width="12" height="45" texwidth="50">	# <randomlabel bgimg="URL" width="12" height="45" texwidth="50">
# <labelgroup name="GroupOne" type="image">	# <labelgroup name="GroupOne" type="image">
Line 91 sub start_randomlabel {	Line 88 sub start_randomlabel {
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);	my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);
if ( defined($bgimg) && $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';
}	}
}	}