mafoo.org.uk/rivers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

updates for upstream api changes

Browse Source
This commit is contained in:
foo
2014-03-09 13:37:56 +00:00
parent 2dbc4c5468
commit f51533f20a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
getstations.pl
View File

@@ -20,7 +20,7 @@ foreach $CatchmentId (@todo) {
print "[river_levels_$CatchmentId]\nenv.urlbase $urlbase\nenv.stations " unless $DEBUG; print "[river_levels_$CatchmentId]\nenv.urlbase $urlbase\nenv.stations " unless $DEBUG;
foreach $station (@{$in->{data}}) { foreach $station (@{$in->{data}}) {
if ($station->{url} =~ /CatchmentId=$CatchmentId$/) { if ($station->{url} =~ /CatchmentId=$CatchmentId$/) {
print "$station->{id}", $DEBUG ? ": $station->{station} on $station->{river}\n" : " " unless $station->{watercourse} eq "Tide"; print "$station->{id}", $DEBUG ? ": $station->{station} on $station->{watercourse}\n" : " " unless $station->{watercourse} eq "Tide";
$catchment = $station->{watercourse} unless $station->{watercourse} eq "Tide"; $catchment = $station->{watercourse} unless $station->{watercourse} eq "Tide";
} }
} }