--- loncom/homework/default_homework.lcpm 2011/06/09 15:43:56 1.159 +++ loncom/homework/default_homework.lcpm 2011/10/06 17:15:40 1.161 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run() # -# $Id: default_homework.lcpm,v 1.159 2011/06/09 15:43:56 www Exp $ +# $Id: default_homework.lcpm,v 1.161 2011/10/06 17:15:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -318,11 +318,13 @@ sub caparesponse_check_list { $responses->[0][-1]=$part1; $unit=&capa_formula_fix($part2); my $customunits=$LONCAPA::CAPAresponse_args{'customunits'}; - foreach my $replacement (split(/\s*\,\s*/,$customunits)) { - my ($which,$what)=split(/\s*\=\s*/,$replacement); - if ((defined($which)) && (defined($what))) { - $what=&capa_formula_fix($what); - $unit=~s/$which/\($what\)/g; + if ($customunits =~ /\S/) { + foreach my $replacement (split(/\s*\,\s*/,$customunits)) { + my ($which,$what)=split(/\s*\=\s*/,$replacement); + if ((defined($which)) && (defined($what))) { + $what=&capa_formula_fix($what); + $unit=~s/$which/\($what\)/g; + } } } } @@ -357,7 +359,7 @@ sub caparesponse_check_list { $appendunit='%'.$appendunit; } # Zero does not need a dimension - if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) { + if (($element =~ /^[0\.]+$/) && ($unit!~/\w/) && ($answerunit=~/\w/)) { $appendunit=$answerunit; } # Do the math for the student if allowed @@ -1181,7 +1183,6 @@ sub middlename { return $middlename; } - sub lastname { my $lastname = &EXT('environment.lastname'); $lastname = '' if $lastname eq "";