loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.45, 2003/05/19 17:10:12	version 1.46, 2003/06/19 22:23:10
Line 176 sub end_randomlabel {	Line 176 sub end_randomlabel {
&Apache::lonnet::appenv(("imagerequest.$token"=>&Apache::lonnet::escape($args)));	&Apache::lonnet::appenv(("imagerequest.$token"=>&Apache::lonnet::escape($args)));
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result='\end{picture}\\\\';	$result='\end{picture}\\\\';
@$parstack[-1]=~/\$height\s=\s?"(.+)?"/;	my $height=&Apache::lonxml::get_param('height',$parstack,$safeeval);
my $one=$1;	my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval);
@$parstack[-1]=~/\$width\s=\s?"(.+)?"/;	my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval);
my $two=$1;	my $howtoskipback = $texwidth*$height/$width;
@$parstack[-1]=~/\$texwidth\s=\s?"(.+)?"/;	$result.= ' \vskip -'.$howtoskipback.' mm } \\\\ ';
my $three=$1;
my $howtoskipback = $three*$one/$two;
$result.=' \vskip -'.$howtoskipback.' mm }';
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::end_table;	$result.=&Apache::edit::end_table;
}	}