loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.48, 2002/07/17 18:08:39	version 1.50, 2002/09/20 21:11:18
Line 445 sub format {	Line 445 sub format {
my $dollarmode;	my $dollarmode;
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; }	if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; }
my $result=sprintf('%.'.$fmt,$value);	my $result=sprintf('%.'.$fmt,$value);
	$result=~s/(E[+-]*)0/$1/;
if ($dollarmode) {$result=&dollarmode($result);}	if ($dollarmode) {$result=&dollarmode($result);}
return $result;	return $result;
}	}
Line 460 sub prettyprint {	Line 461 sub prettyprint {
if ($dollarmode) { $frac=&dollarformat($frac); }	if ($dollarmode) { $frac=&dollarformat($frac); }
my $exponent=$2;	my $exponent=$2;
$exponent=~s/^\+0*//;	$exponent=~s/^\+0*//;
	$exponent=~s/^-0*/-/;
if ($exponent) {	if ($exponent) {
if ($external::target eq 'web') {	if ($external::target eq 'web') {
$result=$frac.'×10<sup>'.$exponent.'</sup>';	$result=$frac.'×10<sup>'.$exponent.'</sup>';
Line 686 sub choose {	Line 688 sub choose {
return $_[$num];	return $_[$num];
}	}

	# expiremental idea
	sub proper_path {
	my ($path)=@_;
	if ( $external::target eq "tex" ) {
	return '/home/httpd/html'.$path;
	} else {
	return $path;
	}
	}