Diff for /loncom/homework/default_homework.lcpm between versions 1.126 and 1.127

version 1.126, 2008/03/05 15:31:57 version 1.127, 2008/03/05 16:06:39
Line 319  sub caparesponse_check_list { Line 319  sub caparesponse_check_list {
     $unit=~s/\s//;      $unit=~s/\s//;
     if ($unit ne '') {      if ($unit ne '') {
  foreach my $response (@$responses) {   foreach my $response (@$responses) {
     foreach my $element (@$response) {          foreach my $element (@$response) {
                   $element =~ s/\s//g;    
  $element .= " $unit";   $element .= " $unit";
     }      }
  }   }

Removed from v.1.126  
changed lines
  Added in v.1.127


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>