loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.173, 2017/02/07 21:24:29
+version 1.174, 2018/09/12 21:10:44
  Line 976  sub chemparse {
      return &xmlparse($formula);
  }
+ sub convert_engineer_format {
+     my ($ans,$baseunit)=@_;
+     my ($value,$answer,$unit);
+     $baseunit =~ s{[^\w/\-\.]}{}g;
+     eval {
+            $value = &number_format_pref($ans);
+     };
+     my ($answer,$prefix) = ($value=~ /^(.+)(\w)$/);
+     my $unit = $prefix.$baseunit;
+     return($answer,$unit);
+ }
  sub prettyprint {
      my ($value,$fmt,$target)=@_;
      my $result;