loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.66, 2002/10/17 14:40:58	version 1.67, 2002/10/17 17:13:44
Line 278 sub end_numericalresponse {	Line 278 sub end_numericalresponse {
my $power = $2;	my $power = $2;
$power=~s/^\+//;	$power=~s/^\+//;
$power=~s/^(-?)0+(\d+)//;	$power=~s/^(-?)0+(\d+)//;
$ans=$number.'$\times 10^{'.$1.$2.'}$';	$ans=$number.'$\times 10^{'.$1.$2.'}$'; #'stupidemacs
}	}
} else {	} else {
my $badans = $bubbles_values[$ind];	my $badans = $bubbles_values[$ind];
Line 297 sub end_numericalresponse {	Line 297 sub end_numericalresponse {
my $power = $2;	my $power = $2;
$power=~s/^\+//;	$power=~s/^\+//;
$power=~s/^(-?)0+(\d+)//;	$power=~s/^(-?)0+(\d+)//;
$ans=$number.'$\times 10^{'.$1.$2.'}$';	$ans=$number.'$\times 10^{'.$1.$2.'}$'; #'stupidemacs
}	}
}	}
$result.='\hskip -3 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -2 mm & {\small '.$ans.'} ';	$result.='\hskip -3 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -2 mm & {\small '.$ans.'} ';
Line 308 sub end_numericalresponse {	Line 308 sub end_numericalresponse {
$result.='\\\\\end{tabular}\vskip 0 mm ';	$result.='\\\\\end{tabular}\vskip 0 mm ';
}	}
$result.='\end{enumerate}';	$result.='\end{enumerate}';
$Apache::lonxml::counter++;	&Apache::lonxml::increment_counter();
my %moreenv;
$moreenv{'form.counter'}=$Apache::lonxml::counter;
&Apache::lonnet::appenv(%moreenv);
}	}
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {