loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.91.2.1, 2008/12/21 15:10:12	version 1.92, 2008/11/18 19:14:28
Line 53	Line 53
# (32,65) : $GroupTwo[1] = "TEXT-1"	# (32,65) : $GroupTwo[1] = "TEXT-1"
# (21,54) : $GroupTwo[2] = "TEXT-2"	# (21,54) : $GroupTwo[2] = "TEXT-2"
# ===========================================	# ===========================================

package Apache::randomlabel;	package Apache::randomlabel;
use Apache::lonnet;	use Apache::lonnet;
use strict;	use strict;
Line 130 sub start_randomlabel {	Line 131 sub start_randomlabel {
$label_xscale = 1.0; # Assume image size not overridden.	$label_xscale = 1.0; # Assume image size not overridden.
$label_yscale = 1.0;	$label_yscale = 1.0;
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);	my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval);
if ( defined($bgimg) && $bgimg !~ /^https?\:/ ) {	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';