Quotes from DWS

Ekkehard Goerlach e.goerlach@computer.org
20 Nov 2001 22:19:51 +0100


Hi,

is it possible to use the DWS module of Finance::Quote from within
gnucash ?=20

By the way, I have a small patch for that module: some of the quotes
from DWS are not in EUR but USD or CHF. The following diff has the
necessary changes:

diff DWS.pm DWS.pm.orig
74,82d73
<     # Some of the funds are reported in curencies other than EUR:
<     my %dwscurrency =3D ( "986956" =3D> "CHF",
<                         "974087" =3D> "CHF",
<                         "974919" =3D> "USD",
<                         "974088" =3D> "CHF",
<                         "974089" =3D> "CHF",
<                         "974604" =3D> "CHF",
<                         "986605" =3D> "USD");
<
104,113c95
<
<       if (exists $dwscurrency{$q[0]})
<       {
<           $info{$q[0], "currency"} =3D $dwscurrency{$q[0]};
<       }
<       else
<       {
<           $info{$q[0], "currency"} =3D "EUR";
<       }
<
---
>         $info{$q[0], "currency"} =3D "EUR";


Ekkehard


--=20
Ekkehard G=F6rlach                    Tumringerstrasse 287
e.goerlach@computer.org             D-79539 L=F6rrach