loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.24, 2002/04/25 21:36:36	version 1.25, 2002/04/26 18:19:40
Line 261 sub end_labelgroup {	Line 261 sub end_labelgroup {
my $y = $Apache::randomlabel::ycoord[$i];	my $y = $Apache::randomlabel::ycoord[$i];
my $value = $Apache::randomlabel::value[$i];	my $value = $Apache::randomlabel::value[$i];
# my $tcX=$x*($texwidth/$wwidth) - $texwidth;	# my $tcX=$x*($texwidth/$wwidth) - $texwidth;
my $tcX=$x*($texwidth/$wwidth);	my $tcX=($x-10)*($texwidth/$wwidth);
# my $tcY=$TY1-$y*($TY1/$wheight)-2;	# my $tcY=$TY1-$y*($TY1/$wheight)-2;
my $ratio=($wwidth > 0 ? $wheight/$wwidth : 1 );	my $ratio=($wwidth > 0 ? $wheight/$wwidth : 1 );
my $tcY=$TY1-$y($TY1/$wheight)+$texwidth$ratio;	my $tcY=$TY1-$y($TY1/$wheight)+$texwidth$ratio;