Sophie

Sophie

distrib > Mageia > 1 > i586 > media > core-updates-src > by-pkgid > d0bb6137ec50e6a1458a89345435073b > files > 1

perl-Finance-Quote-1.170.0-1.1.mga1.src.rpm

--- lib/Finance/Quote.pm.orig	2012-02-15 10:28:52.000000000 +0100
+++ lib/Finance/Quote.pm	2012-02-15 10:30:04.000000000 +0100
@@ -246,13 +246,15 @@
   my $tb = HTML::TreeBuilder->new_from_content(decode_utf8($data));
 
   # Find the <div> with the data
-  my $div = $tb->look_down('id','yfi_quote_summary_data');
+  my $div = $tb->look_down('id','yfi_investing_content');
   # Make sure there's a <div> to parse.
   return undef unless $div;
 
-  # The first <b> should contain the quote
-  my $rate_element=$div->look_down('_tag','b');
-  # Make sure there's a <b> to parse.
+  # Find the <span> that contains the quote
+  my $lcfrom = lc($from);
+  my $lcto = lc($to);
+  my $rate_element=$div->look_down('id', "yfs_l10_$lcfrom$lcto=x");
+  # Make sure there's a <span> to parse.
   return undef unless $rate_element;
 
   my $exchange_rate=$rate_element->as_text;