loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.91, 2004/10/21 02:43:34	version 1.94, 2005/02/18 22:52:50
Line 163 sub caparesponse_check {	Line 163 sub caparesponse_check {
elsif ($result == '9') { $result='ANS_CNT_NOT_MATCH'; }	elsif ($result == '9') { $result='ANS_CNT_NOT_MATCH'; }
elsif ($result =='10') { $result='SUB_RECORDED'; }	elsif ($result =='10') { $result='SUB_RECORDED'; }
elsif ($result =='11') { $result='BAD_FORMULA'; }	elsif ($result =='11') { $result='BAD_FORMULA'; }
	elsif ($result =='12' && !$response) { $result='MISSING_ANSWER'; }
	elsif ($result =='12') { $result='WANTED_NUMERIC'; }
elsif ($result =='13') { $result='UNIT_INVALID_INSTRUCTOR'; }	elsif ($result =='13') { $result='UNIT_INVALID_INSTRUCTOR'; }
elsif ($result =='141') { $result='UNIT_INVALID_STUDENT'; }	elsif ($result =='141') { $result='UNIT_INVALID_STUDENT'; }
elsif ($result =='142') { $result='UNIT_INVALID_STUDENT'; }	elsif ($result =='142') { $result='UNIT_INVALID_STUDENT'; }
Line 560 sub chemparse {	Line 562 sub chemparse {
}	}
# get rid of trailing space	# get rid of trailing space
$formula =~ s/(\&nbsp\;\| )$//;	$formula =~ s/(\&nbsp\;\| )$//;

return &xmlparse($formula);	return &xmlparse($formula);
}	}