loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.89, 2002/09/16 19:06:57	version 1.90, 2002/10/07 17:57:37
Line 1549 EDITBUTTON	Line 1549 EDITBUTTON
my $currentstring = '';	my $currentstring = '';
my $width_param = '';	my $width_param = '';
my $height_param = '';	my $height_param = '';
my $scaling = .3;	my $scaling = .3;

if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];
Line 1568 EDITBUTTON	Line 1568 EDITBUTTON
my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);	my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);
my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);	my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);
my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval);	my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval);
if ($TeXwidth ne '') {	if ($TeXwidth ne '') {
$width_param = $TeXwidth;	if ($TeXwidth=~/(\d+)\s*\%/) {
} elsif ($TeXheight ne '') {	$width_param = $1*$ENV{'form.textwidth'}/100;
$width_param = $TeXheight/$height_param*$width_param;	} else {
	$width_param = $TeXwidth;
	}
	} elsif ($TeXheight ne '') {
	$width_param = $TeXheight/$height_param*$width_param;
} elsif ($width ne '') {	} elsif ($width ne '') {
$width_param = $width*$scaling;	$width_param = $width*$scaling;
}	}