loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.75, 2004/03/19 22:02:03	version 1.76, 2004/03/22 21:05:15
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
#	#
# Guy Albertelli
#
# 05/25/2001 H. K. Ng
# 05/31/2001 H. K. Ng
# 12/21/2001 Matthew
#
#init some globals	#init some globals
$hidden::RANDOMINIT=0;	$hidden::RANDOMINIT=0;
$pi=atan2(1,1)*4;	$pi=atan2(1,1)*4;
Line 68 sub caparesponse_check {	Line 63 sub caparesponse_check {
} else {	} else {
$message .="no ws in :$response:\n";	$message .="no ws in :$response:\n";
}	}
	if ($type eq 'cs' \|\| $type eq 'ci' \|\| $type eq 'mc') {
	#for string answers make surec all places spaces occur, there is
	#really only 1 space, in both the answer and the response
	$answer=~s/ +/ /g;
	$response=~s/ +/ /g;
	}
if (length($response) > 500) { return "TOO_LONG: Answer too long"; }	if (length($response) > 500) { return "TOO_LONG: Answer too long"; }

if ($type eq '' ) {	if ($type eq '' ) {
Line 497 sub chemparse {	Line 497 sub chemparse {
if ($token eq '<=>') {	if ($token eq '<=>') {
if ($external::target eq 'web' &&	if ($external::target eq 'web' &&
&EXT('request.browser.unicode')) {	&EXT('request.browser.unicode')) {
$formula .= '⇔ ';	$formula .= '⇌ ';
} else {	} else {
$formula .= &web('<=> ','<m>\ensuremath{\rightleftharpoons}</m> ',	$formula .= &web('<=> ','<m>\ensuremath{\rightleftharpoons}</m> ',
'<=$gt; ');	'<=$gt; ');