55_GDS.pm: fixed error in getListForecastStations #44523
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10003 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -42,6 +42,8 @@ use Archive::Extract;
|
||||
use Net::FTP;
|
||||
use XML::Simple;
|
||||
|
||||
use Data::Dumper;
|
||||
|
||||
eval "use GDSweblink";
|
||||
|
||||
no if $] >= 5.017011, warnings => 'experimental';
|
||||
@@ -1882,6 +1884,7 @@ sub getListForecastStations($) {
|
||||
|
||||
eval {
|
||||
foreach my $region (@regions) {
|
||||
$data = "";
|
||||
my $areaAndTime = 'Daten_'.$region.'_morgen_spaet';
|
||||
while(($k, $v) = each %allForecastData){
|
||||
if ($k eq $areaAndTime) {
|
||||
|
||||
Reference in New Issue
Block a user