loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.16, 2002/03/06 20:41:17	version 1.17, 2002/03/06 21:56:27
Line 86 sub start_randomlabel {	Line 86 sub start_randomlabel {
my $codebase = &Apache::lonxml::get_param('codebase',$parstack,$safeeval);	my $codebase = &Apache::lonxml::get_param('codebase',$parstack,$safeeval);
my $w= &Apache::lonxml::get_param('width',$parstack,$safeeval);	my $w= &Apache::lonxml::get_param('width',$parstack,$safeeval);
my $h= &Apache::lonxml::get_param('height',$parstack,$safeeval);	my $h= &Apache::lonxml::get_param('height',$parstack,$safeeval);
$Apache::randomlabel::ratio = $h/$w;	$Apache::randomlabel::ratio = ($w > 0 ? $h/$w : 1 );
my $texwidth= &Apache::lonxml::get_param('texwidth',$parstack,$safeeval);	my $texwidth= &Apache::lonxml::get_param('texwidth',$parstack,$safeeval);
if (!$code) { $code='GLabel.class'; }	if (!$code) { $code='GLabel.class'; }
if (!$codebase) { $codebase='/res/adm/includes/'; }	if (!$codebase) { $codebase='/res/adm/includes/'; }