Small patches to avoid loss of precision in computed SI values.

From: Alec Leamas <leamas.alec%AT%gmail.com>


---

 mythweather/scripts/us_nws/ndfd.pl   |   10 +++++-----
 mythweather/scripts/us_nws/ndfd18.pl |    4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)


diff --git a/mythweather/scripts/us_nws/ndfd.pl b/mythweather/scripts/us_nws/ndfd.pl
index a69ee2f..ef74938 100755
--- a/mythweather/scripts/us_nws/ndfd.pl
+++ b/mythweather/scripts/us_nws/ndfd.pl
@@ -162,17 +162,17 @@ foreach $time (sort(keys(%$result))) {
     my $geticon = 0;
     if ($lowindex <= 5 && $result->{$time}->{temperature_minimum}) { 
         if ($units eq 'SI') {
-            $result->{$time}->{temperature_minimum} =
-                int ( (5/9) * ($result->{$time}->{temperature_minimum}-32));
+            $result->{$time}->{'temperature_minimum'} =
+                 (5/9) * ($result->{$time}->{'temperature_minimum'}-32);
         }
-        print "low-${lowindex}::$result->{$time}->{temperature_minimum}\n";
+        printf "low-%d::%.2f\n", $lowindex, $result->{$time}->{'temperature_minimum'} ;
         $lowindex++;
     } elsif ($hiindex <= 5 && $result->{$time}->{temperature_maximum}) {
         if ($units eq 'SI') {
             $result->{$time}->{temperature_maximum} =
-                int ( (5/9) * ($result->{$time}->{temperature_maximum}-32));
+                 (5/9) * ($result->{$time}->{temperature_maximum}-32);
         }
-        print "high-${hiindex}::$result->{$time}->{temperature_maximum}\n";
+        printf "high-%d::%.2f\n", $hiindex, $result->{$time}->{temperature_maximum};
         $hiindex++;
         $geticon = 1;
     } 
diff --git a/mythweather/scripts/us_nws/ndfd18.pl b/mythweather/scripts/us_nws/ndfd18.pl
index dd0e607..c34ffda 100755
--- a/mythweather/scripts/us_nws/ndfd18.pl
+++ b/mythweather/scripts/us_nws/ndfd18.pl
@@ -141,9 +141,9 @@ foreach my $time (sort keys %$result) {
     print "time-${index}::" . UnixDate($time, "%i %p\n");
     if ($units eq 'SI') {
         $result->{$time}->{temperature_hourly} =
-            int( (5/9) * ($result->{$time}->{temperature_hourly}-32));
+             (5/9) * ($result->{$time}->{temperature_hourly}-32);
     }
-    print "temp-${index}::$result->{$time}->{temperature_hourly}\n";
+    printf "temp-%d::%.2f\n", $index, $result->{$time}->{temperature_hourly};
     print "pop-${index}::$pop12 %\n";
     $icon = $result->{$time}->{'conditions-icon_forecast-NWS'};
     $icon =~ s/.*\/([a-z0-9_]+[.][j][p][g])/$1/;