Mercurial > hg > egg-tcls

changeset 383:1ba1191da15d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fetch_weather: Check for empty station name.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 07 Feb 2016 18:49:36 +0200
parents 5573c1681da9
children a375c276ec4d
files fetch_weather.pl
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/fetch_weather.pl	Sun Feb 07 18:49:11 2016 +0200
+++ b/fetch_weather.pl	Sun Feb 07 18:49:36 2016 +0200
@@ -372,7 +372,7 @@
         foreach my $wdata (@{$data->{"roadweatherdata"}{"roadweather"}})
         {
           my $wid = $wdata->{"stationid"};
-          if (defined($meta_data->{$wid}))
+          if (defined($meta_data->{$wid}) && $meta_data->{$wid}[2] ne "")
           {
             $nrecords++;
             $weatherdata->{$meta_data->{$wid}[2]} =
@@ -488,7 +488,8 @@
           # Should use a hash -
           foreach my $flol (@farray)
           {
-            if ($flol->{"lat"} == $flat && $flol->{"long"} == $flong)
+            if ($flol->{"lat"} == $flat && $flol->{"long"} == $flong &&
+                $floc->{"gml:name"} ne "")
             {
               $nrecords++;
               $weatherdata->{$floc->{"gml:name"}} =