Previous patch broke yahoo_europe for KPN.AS. Here is an updated patch
tested with
- JNPR yahoo
- KPN.AS yahoo
- KPN.AS yahoo_europe
- INGBM.AS yahoo
- INGBM.AS yahoo_europe
- INGBM.AS yahoo_asia
and works with all these combinations.
--
Lionel
diff -u --recursive libfinance-quote-perl-1.15/lib/Finance/Quote/Yahoo/Base.pm /usr/share/perl5/Finance/Quote/Yahoo/Base.pm
--- libfinance-quote-perl-1.15/lib/Finance/Quote/Yahoo/Base.pm 2008-10-26 09:15:50.000000000 +0100
+++ /usr/share/perl5/Finance/Quote/Yahoo/Base.pm 2009-03-17 18:44:07.637030153 +0100
@@ -56,11 +56,11 @@
# in the URL. These are recorded below, along with their corresponding
# field names.
-...@fields = qw/symbol name last date time net p_change volume bid ask
- close open day_range year_range eps pe div_date div div_yield
- cap ex_div avg_vol currency/;
+...@fields = qw/symbol name last net p_change volume bid ask
+ close open day_range year_range eps pe div div_yield
+ cap avg_vol currency time date ex_div div_date/;
-...@field_encoding = qw/s n l1 d1 t1 c1 p2 v b a p o m w e r r1 d y j1 q a2 c4/;
+...@field_encoding = qw/s n l1 c1 p2 v b a p o m w e r d y j1 a2 c4 t1 d1 q r1/;
# This returns a list of labels that are provided, so that code
# that make use of this module can know what it's dealing with.
diff -u --recursive libfinance-quote-perl-1.15/lib/Finance/Quote/Yahoo/Europe.pm /usr/share/perl5/Finance/Quote/Yahoo/Europe.pm
--- libfinance-quote-perl-1.15/lib/Finance/Quote/Yahoo/Europe.pm 2008-10-26 09:15:50.000000000 +0100
+++ /usr/share/perl5/Finance/Quote/Yahoo/Europe.pm 2009-03-17 16:56:21.921029713 +0100
@@ -42,18 +42,6 @@
$YAHOO_EUROPE_URL = ("http://uk.finance.yahoo.com/d/quotes.csv";);
-# Yahoo Europe switched date and time. sending t1d1 or d1t1
-# returns the same : Time followed by date. This is a short
-# bug fix until yahoo changes back again.
-#
-# Yahoo Europe doens't return values for r1 (div_date) and q (ex_div)
-# Another solution might be to change Base.pm FIELDS labels to this
-# string + div_date and ex_div. Code would be nicier, but this will
-# need more testing for other yahoo modules and can be done later.
-our @YH_EUROPE_FIELDS = qw/symbol name last time date net p_change volume bid ask
- close open day_range year_range eps pe div div_yield
- cap avg_vol currency/;
-
sub methods {return (europe => \&yahoo_europe,yahoo_europe => \&yahoo_europe)};
{
@@ -70,10 +58,6 @@
my @symbols = @_;
return unless @symbols; # Nothing if no symbols.
- # localise the Base.FIELDS array. Perl restores the array at
- # the end of this sub.
- local @Finance::Quote::Yahoo::Base::FIELDS = @YH_EUROPE_FIELDS ;
-
# This does all the hard work.
my %info = yahoo_request($quoter,$YAHOO_EUROPE_URL,\...@symbols);
