Neue Module 95_Shares.pm und 95_ShareMaster.pm

[romakrau]

Meine Lösung basiert auf dem Vorschlag von pah den ich wie folgt ausgebaut habe:

Der alte Wechselkurs wird gelesen und gespeichert. Im Falle das ein Wechselkurs nicht ermittelt werden kann, wird dieser mit dem gespeichtertem Wert gesetzt. Diese Vorgehensweise verhindert das bei ausländischen Währungen eine zu große Differenz im Ergebnis entsteht.

Code Auswählen Erweitern

Zeile 210:  my $exrold = (split(' ',ReadingsVal($name, "exchangerate", "1")))[0];

Zeile 220:  if(!defined($exr)){
              $exr = $exrold;   
          #   Log3 $name, 1, "[Shares_UpdateCurrency] No exchange rate found for currency $cur into EUR, setting to $exrold";
  }