commit perl-Finance-Quote

27 Oct 2008

Hello community,

here is the log from the commit of package perl-Finance-Quote
checked in at Mon Oct 27 17:07:24 CET 2008.


--------

--- perl-Finance-Quote/perl-Finance-Quote.changes	2008-10-15 18:49:09.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-Finance-Quote/perl-Finance-Quote.changes	2008-10-27 13:53:02.000000000 +0100
@@ -1,0 +2,8 @@
+Mon Oct 27 13:51:14 CET 2008 - sbrabec@suse.cz
+
+- Updated to version 1.15:
+  * IndiaMutual: Fix symbol not set it module.
+  * isoTime - make sure $hours and $mins are treated as numbers,
+    use sprintf
+
+-------------------------------------------------------------------

calling whatdependson for head-i586


Old:
----
  Finance-Quote-1.14.tar.bz2

New:
----
  Finance-Quote-1.15.tar.bz2

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Finance-Quote.spec ++++++
--- /var/tmp/diff_new_pack.UL9005/_old	2008-10-27 17:07:07.000000000 +0100
+++ /var/tmp/diff_new_pack.UL9005/_new	2008-10-27 17:07:07.000000000 +0100
@@ -1,5 +1,5 @@
 #
-# spec file for package perl-Finance-Quote (Version 1.14)
+# spec file for package perl-Finance-Quote (Version 1.15)
 #
 # Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
@@ -26,7 +26,7 @@
 Requires:       perl-Crypt-SSLeay perl-libwww-perl perl-HTML-TableExtract
 Requires:       perl = %{perl_version}
 Summary:        Provides access to time-delayed stockquotes
-Version:        1.14
+Version:        1.15
 Release:        1
 Source:         Finance-Quote-%{version}.tar.bz2
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
@@ -67,6 +67,11 @@
 /var/adm/perl-modules/%{name}
 
 %changelog
+* Mon Oct 27 2008 sbrabec@suse.cz
+- Updated to version 1.15:
+  * IndiaMutual: Fix symbol not set it module.
+  * isoTime - make sure $hours and $mins are treated as numbers,
+  use sprintf
 * Wed Oct 15 2008 sbrabec@suse.cz
 - Updated to version 1.14:
   * Added support for Finanzpartner, Cominvest, TSX.

++++++ Finance-Quote-1.14.tar.bz2 -> Finance-Quote-1.15.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/ChangeLog new/Finance-Quote-1.15/ChangeLog
--- old/Finance-Quote-1.14/ChangeLog	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/ChangeLog	2008-10-26 09:15:50.000000000 +0100
@@ -1,3 +1,13 @@
+2008-10-26  Erik Colson <eco@ecocode.net>
+
+	* BUG correction : IndiaMutual.pm: symbol not set it module.
+	* Release 1.15
+
+2008-10-21  Erik Colson <eco@ecocode.net>
+
+        * BUG correction : function isoTime - make sure $hours and $mins are treated as numbers
+        * use sprintf in isoTime
+
 2008-10-15  Erik Colson <eco@ecocode.net>
 
         * Release 1.14
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/AEX.pm new/Finance-Quote-1.15/lib/Finance/Quote/AEX.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/AEX.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/AEX.pm	2008-10-26 09:15:50.000000000 +0100
@@ -44,7 +44,7 @@
 use HTML::TableExtract;
 use CGI;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/AIAHK.pm new/Finance-Quote-1.15/lib/Finance/Quote/AIAHK.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/AIAHK.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/AIAHK.pm	2008-10-26 09:15:50.000000000 +0100
@@ -34,7 +34,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION='1.14';
+$VERSION='1.15';
 $AIAHK_URL = 'http://www.aia.com.hk/daily/fund_mst_rightb.asp?cat=BR_AC';
 
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/ASEGR.pm new/Finance-Quote-1.15/lib/Finance/Quote/ASEGR.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/ASEGR.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/ASEGR.pm	2008-10-26 09:15:50.000000000 +0100
@@ -30,7 +30,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION='1.14';
+$VERSION='1.15';
 
 my $ASEGR_URL = 'http://www.ase.gr/content/en/MarketData/Stocks/Prices/Share_SearchResults.as...';
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/ASX.pm new/Finance-Quote-1.15/lib/Finance/Quote/ASX.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/ASX.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/ASX.pm	2008-10-26 09:15:50.000000000 +0100
@@ -40,7 +40,7 @@
 
 use vars qw/$ASX_URL $VERSION/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $ASX_URL = 'http://www.asx.com.au/asx/markets/PriceResults.jsp?method=get&template=F1001...';
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/BMONesbittBurns.pm new/Finance-Quote-1.15/lib/Finance/Quote/BMONesbittBurns.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/BMONesbittBurns.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/BMONesbittBurns.pm	2008-10-26 09:15:50.000000000 +0100
@@ -35,7 +35,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information
 my $BMO_URL = 'http://bmonesbittburns.com/QuickQuote/QuickQuote.asp?Symbol=';
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Bourso.pm new/Finance-Quote-1.15/lib/Finance/Quote/Bourso.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Bourso.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Bourso.pm	2008-10-26 09:15:50.000000000 +0100
@@ -62,7 +62,7 @@
 use HTML::TableExtract;
 
 
-$VERSION='1.14';
+$VERSION='1.15';
 
 my $Bourso_URL = 'http://www.boursorama.com/recherche/recherche.phtml';
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Cdnfundlibrary.pm new/Finance-Quote-1.15/lib/Finance/Quote/Cdnfundlibrary.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Cdnfundlibrary.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Cdnfundlibrary.pm	2008-10-26 09:15:50.000000000 +0100
@@ -21,7 +21,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Cominvest.pm new/Finance-Quote-1.15/lib/Finance/Quote/Cominvest.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Cominvest.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Cominvest.pm	2008-10-26 09:15:50.000000000 +0100
@@ -41,7 +41,7 @@
 use LWP::UserAgent;
 use HTTP::Request::Common;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $COMINVEST_URL = ('http://files.cominvest.de/_fonds_application/FondsInfos/FondsInfos_All_Preis...');
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Deka.pm new/Finance-Quote-1.15/lib/Finance/Quote/Deka.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Deka.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Deka.pm	2008-10-26 09:15:50.000000000 +0100
@@ -23,7 +23,7 @@
 require Crypt::SSLeay;
 
 use vars qw($VERSION);
-$VERSION = '1.14';
+$VERSION = '1.15';
 my $DEKA_URL = "https://www.deka.de/dn/useCases/fundsearch/UCFundsSearch.shtml?ACTION_FIELD=...";
 
 sub methods {return (deka        => \&deka);}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/DWS.pm new/Finance-Quote-1.15/lib/Finance/Quote/DWS.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/DWS.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/DWS.pm	2008-10-26 09:15:50.000000000 +0100
@@ -45,7 +45,7 @@
 
 use vars qw/$VERSION/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 sub methods {
 	return(dwsfunds => \&dwsfunds);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Fidelity.pm new/Finance-Quote-1.15/lib/Finance/Quote/Fidelity.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Fidelity.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Fidelity.pm	2008-10-26 09:15:50.000000000 +0100
@@ -36,7 +36,7 @@
 use LWP::UserAgent;
 use HTTP::Request::Common;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $FIDELITY_URL = ("http://activequote.fidelity.com/nav/fulllist.csv");
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/FinanceCanada.pm new/Finance-Quote-1.15/lib/Finance/Quote/FinanceCanada.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/FinanceCanada.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/FinanceCanada.pm	2008-10-26 09:15:50.000000000 +0100
@@ -19,7 +19,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 my $FINANCECANADA_MAINURL = ("http://finance.canada.com/");
 my $FINANCECANADA_URL = "http://stockgroup.canada.com/sn_overview.asp?symbol=T.";
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Finanzpartner.pm new/Finance-Quote-1.15/lib/Finance/Quote/Finanzpartner.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Finanzpartner.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Finanzpartner.pm	2008-10-26 09:15:50.000000000 +0100
@@ -21,7 +21,7 @@
 use HTML::TableExtract;
 
 use vars qw($VERSION);
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 my $FINANZPARTNER_URL = "http://www.finanzpartner.de/fi/";
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Fool.pm new/Finance-Quote-1.15/lib/Finance/Quote/Fool.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Fool.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Fool.pm	2008-10-26 09:15:50.000000000 +0100
@@ -40,7 +40,7 @@
 
 use vars qw/$FOOL_URL $VERSION @FIELDS $MAX_REQUEST_SIZE @ISA/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $FOOL_URL = 'http://quote.fool.com/quotes.csv?symbols=';
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/FTPortfolios.pm new/Finance-Quote-1.15/lib/Finance/Quote/FTPortfolios.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/FTPortfolios.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/FTPortfolios.pm	2008-10-26 09:15:50.000000000 +0100
@@ -39,7 +39,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/HEX.pm new/Finance-Quote-1.15/lib/Finance/Quote/HEX.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/HEX.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/HEX.pm	2008-10-26 09:15:50.000000000 +0100
@@ -41,7 +41,7 @@
 
 use vars qw/$HEX_URL $VERSION/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $HEX_URL = 'http://omxgroup.is-teledata.com/html/securitypricelistequities.html?language...';
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/IndiaMutual.pm new/Finance-Quote-1.15/lib/Finance/Quote/IndiaMutual.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/IndiaMutual.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/IndiaMutual.pm	2008-10-26 09:15:50.000000000 +0100
@@ -14,7 +14,7 @@
 use HTTP::Status;
 use HTML::TableExtract;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
@@ -77,7 +77,8 @@
     close(NAV);
 
     foreach my $symbol (@symbols) {
-	$fundquote{$symbol, "currency"} = "INR";
+        $fundquote{$symbol, "symbol"} = $symbol;
+        $fundquote{$symbol, "currency"} = "INR";
 	$fundquote{$symbol, "source"} = $AMFI_MAIN_URL;
 	$fundquote{$symbol, "link"} = $url;
 	$fundquote{$symbol, "method"} = "amfitable";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/LeRevenu.pm new/Finance-Quote-1.15/lib/Finance/Quote/LeRevenu.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/LeRevenu.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/LeRevenu.pm	2008-10-26 09:15:50.000000000 +0100
@@ -41,7 +41,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION='1.14';
+$VERSION='1.15';
 
 my $LR_URL = 'http://bourse.lerevenu.com/recherchenom.hts';
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/ManInvestments.pm new/Finance-Quote-1.15/lib/Finance/Quote/ManInvestments.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/ManInvestments.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/ManInvestments.pm	2008-10-26 09:15:50.000000000 +0100
@@ -41,7 +41,7 @@
 
 use vars qw/$MANINV_URL $VERSION/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $MANINV_URL = 'http://www.maninvestments.com.au/index.cfm?action=productprices&cat_id=5';
 $MANINV_URL = 'http://www.maninvestments.com.au/netassetvalues-print.cfm';
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/NZX.pm new/Finance-Quote-1.15/lib/Finance/Quote/NZX.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/NZX.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/NZX.pm	2008-10-26 09:15:50.000000000 +0100
@@ -39,7 +39,7 @@
 
 use vars qw/$VERSION/; 
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 sub methods { return (nz => \&nzx, nzx => \&nzx); }
 sub labels {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Platinum.pm new/Finance-Quote-1.15/lib/Finance/Quote/Platinum.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Platinum.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Platinum.pm	2008-10-26 09:15:50.000000000 +0100
@@ -41,7 +41,7 @@
 
 use vars qw/$PLATINUM_URL $VERSION/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $PLATINUM_URL = 'http://www.platinum.com.au/Platinum_Trust_Unit_Prices.htm';
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/SEB.pm new/Finance-Quote-1.15/lib/Finance/Quote/SEB.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/SEB.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/SEB.pm	2008-10-26 09:15:50.000000000 +0100
@@ -35,7 +35,7 @@
 use HTTP::Request::Common;
 use utf8;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 $SEB_FUNDS_URL = 'http://taz.vv.sebank.se/cgi-bin/pts3/pow/fmk/2100/Senaste_fondkurserna.TXT';
 
 sub methods { return (seb_funds => \&seb_funds); }
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/StockHouseCanada.pm new/Finance-Quote-1.15/lib/Finance/Quote/StockHouseCanada.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/StockHouseCanada.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/StockHouseCanada.pm	2008-10-26 09:15:50.000000000 +0100
@@ -38,7 +38,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $STOCKHOUSE_LOOKUP_URL="http://www.stockhouse.com/mutualFunds/index.asp?asp=1&lang=&item=searchresul...";
 $STOCKHOUSE_URL="http://www.stockhouse.com/MutualFunds/index.asp?item=snapshot&page=1&Lang=EN...";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Tdefunds.pm new/Finance-Quote-1.15/lib/Finance/Quote/Tdefunds.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Tdefunds.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Tdefunds.pm	2008-10-26 09:15:50.000000000 +0100
@@ -33,7 +33,7 @@
 use HTTP::Request::Common;
 use Carp;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Tdwaterhouse.pm new/Finance-Quote-1.15/lib/Finance/Quote/Tdwaterhouse.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Tdwaterhouse.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Tdwaterhouse.pm	2008-10-26 09:15:50.000000000 +0100
@@ -33,7 +33,7 @@
 use HTTP::Request::Common;
 use Carp;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Tiaacref.pm new/Finance-Quote-1.15/lib/Finance/Quote/Tiaacref.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Tiaacref.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Tiaacref.pm	2008-10-26 09:15:50.000000000 +0100
@@ -40,7 +40,7 @@
 use HTTP::Request::Common;
 use Carp;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 # This used to be different for the CREF and TIAA annuities, but this changed.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Troweprice.pm new/Finance-Quote-1.15/lib/Finance/Quote/Troweprice.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Troweprice.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Troweprice.pm	2008-10-26 09:15:50.000000000 +0100
@@ -38,7 +38,7 @@
 use HTTP::Request::Common;
 use Carp;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Trustnet.pm new/Finance-Quote-1.15/lib/Finance/Quote/Trustnet.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Trustnet.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Trustnet.pm	2008-10-26 09:15:50.000000000 +0100
@@ -39,7 +39,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/TSP.pm new/Finance-Quote-1.15/lib/Finance/Quote/TSP.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/TSP.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/TSP.pm	2008-10-26 09:15:50.000000000 +0100
@@ -39,7 +39,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/TSX.pm new/Finance-Quote-1.15/lib/Finance/Quote/TSX.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/TSX.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/TSX.pm	2008-10-26 09:15:50.000000000 +0100
@@ -43,7 +43,7 @@
 
 use vars qw/$VERSION/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # This URL is able to accept up to 10 symbols at a time
 my $TSX_URL = URI->new('http://cxa.marketwatch.com/tsx/en/market/getquote.aspx');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Union.pm new/Finance-Quote-1.15/lib/Finance/Quote/Union.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Union.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Union.pm	2008-10-26 09:15:50.000000000 +0100
@@ -40,7 +40,7 @@
 
 use vars qw/$VERSION/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 sub methods { return (unionfunds => \&unionfunds); }
 sub labels { return (unionfunds => [qw/exchange name date isodate price method/]); }
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/UserAgent.pm new/Finance-Quote-1.15/lib/Finance/Quote/UserAgent.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/UserAgent.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/UserAgent.pm	2008-10-26 09:15:50.000000000 +0100
@@ -31,7 +31,7 @@
 
 use vars qw/@ISA $VERSION/;
 
-$VERSION='1.14';
+$VERSION='1.15';
 @ISA = qw/LWP::UserAgent/;
 
 # A very simple extension.  When we generate a LWP::UserAgent object,
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/USFedBonds.pm new/Finance-Quote-1.15/lib/Finance/Quote/USFedBonds.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/USFedBonds.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/USFedBonds.pm	2008-10-26 09:15:50.000000000 +0100
@@ -23,7 +23,7 @@
 use HTML::TableExtract;
 use HTML::Parser;
 
-$VERSION = '1.14' ;
+$VERSION = '1.15' ;
 my $TREASURY_MAINURL = ("http://www.publicdebt.treas.gov/");
 my $TREASURY_URL = ($TREASURY_MAINURL."sav/");
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/VWD.pm new/Finance-Quote-1.15/lib/Finance/Quote/VWD.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/VWD.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/VWD.pm	2008-10-26 09:15:50.000000000 +0100
@@ -44,7 +44,7 @@
 
 use vars qw/$VERSION/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 sub methods { return (vwd => \&vwd); }
 sub labels { return (vwd => [qw/currency date isodate 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Asia.pm new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Asia.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Asia.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Asia.pm	2008-10-26 09:15:50.000000000 +0100
@@ -38,7 +38,7 @@
 
 use vars qw($VERSION $YAHOO_ASIA_URL);
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Australia.pm new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Australia.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Australia.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Australia.pm	2008-10-26 09:15:50.000000000 +0100
@@ -35,7 +35,7 @@
 
 use vars qw/$VERSION $YAHOO_AUSTRALIA_URL/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Base.pm new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Base.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Base.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Base.pm	2008-10-26 09:15:50.000000000 +0100
@@ -44,7 +44,7 @@
 @EXPORT = qw//;
 @EXPORT_OK = qw/yahoo_request base_yahoo_labels/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # This is the maximum number of stocks we'll batch into one operation.
 # If this gets too big (>50 or thereabouts) things will break because
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Brasil.pm new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Brasil.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Brasil.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Brasil.pm	2008-10-26 09:15:50.000000000 +0100
@@ -35,7 +35,7 @@
 
 use vars qw/$VERSION $YAHOO_BRASIL_URL/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Europe.pm new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Europe.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/Europe.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/Europe.pm	2008-10-26 09:15:50.000000000 +0100
@@ -36,7 +36,7 @@
 
 use vars qw($VERSION $YAHOO_EUROPE_URL);
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
@@ -110,7 +110,7 @@
 	BC - Barcelona
 	BE - Berlin
 	BI - Bilbao
-	BR - Breme
+	BR - Brussels
 	CO - Copenhagen
 	D  - Dusseldorf
 	F  - Frankfurt
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/NZ.pm new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/NZ.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/NZ.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/NZ.pm	2008-10-26 09:15:50.000000000 +0100
@@ -34,7 +34,7 @@
 
 use vars qw/$VERSION $YAHOO_NZ_URL/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/USA.pm new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/USA.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/Yahoo/USA.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/Yahoo/USA.pm	2008-10-26 09:15:50.000000000 +0100
@@ -37,7 +37,7 @@
 
 use vars qw/$VERSION $YAHOO_URL/;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 # URLs of where to obtain information.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote/ZA.pm new/Finance-Quote-1.15/lib/Finance/Quote/ZA.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote/ZA.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote/ZA.pm	2008-10-26 09:15:50.000000000 +0100
@@ -20,7 +20,7 @@
 use HTTP::Request::Common;
 use HTML::TableExtract;
 
-$VERSION='1.14';
+$VERSION='1.15';
 
 my $SHARENET_MAINURL = ("http://www.sharenet.co.za/");
 my $SHARENET_URL = ($SHARENET_MAINURL."jse/");
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/lib/Finance/Quote.pm new/Finance-Quote-1.15/lib/Finance/Quote.pm
--- old/Finance-Quote-1.14/lib/Finance/Quote.pm	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/lib/Finance/Quote.pm	2008-10-26 09:15:50.000000000 +0100
@@ -50,7 +50,7 @@
 @EXPORT_OK = qw/yahoo yahoo_europe fidelity troweprice asx tiaacref/;
 @EXPORT_TAGS = ( all => [@EXPORT_OK]);
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 
 $USE_EXPERIMENTAL_UA = 0;
 
@@ -670,11 +670,10 @@
   $timeString = uc $timeString ;
   my $retTime = "00:00"; # return zero time if unparsable input
   if ($timeString=~m/^(\d+)[\.:UH](\d+)(AM|PM)?/) {
-    my ($hours,$mins)= ($1,$2) ;
+    my ($hours,$mins)= ($1-0,$2-0) ;
     $hours+=12 if ($3 && ($3 eq "PM")) ;
     if ($hours>=0 && $hours<=23 && $mins>=0 && $mins<=59 ) {
-      $retTime = $hours>=10 ? "$hours:" : "0$hours:" ;
-      $retTime.= $mins>=10 ? "$mins" :"0$mins" ;
+      $retTime = sprintf ("%02d:%02d", $hours, $mins) ;
     }
   }
   return $retTime;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/Makefile.PL new/Finance-Quote-1.15/Makefile.PL
--- old/Finance-Quote-1.14/Makefile.PL	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/Makefile.PL	2008-10-26 09:15:50.000000000 +0100
@@ -7,6 +7,7 @@
 
 name(           'Finance-Quote');
 all_from(       'lib/Finance/Quote.pm');
+license(        'gpl');
 
 # We'd like to have multiple authors listed.  See future_use below.
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/META.yml new/Finance-Quote-1.15/META.yml
--- old/Finance-Quote-1.14/META.yml	2008-10-15 14:03:52.000000000 +0200
+++ new/Finance-Quote-1.15/META.yml	2008-10-26 09:16:41.000000000 +0100
@@ -28,4 +28,4 @@
   bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Finance-Quote
   homepage: http://finance-quote.sourceforge.net/
   repository: http://github.com/pfenwick/finance-quote/
-version: 1.14
+version: 1.15
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/t/finanzpartner.t new/Finance-Quote-1.15/t/finanzpartner.t
--- old/Finance-Quote-1.14/t/finanzpartner.t	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/t/finanzpartner.t	2008-10-26 09:15:50.000000000 +0100
@@ -1,10 +1,14 @@
 #!/usr/bin/perl -w
 use strict;
-use Test;
-BEGIN {plan tests => 8};
-
+use Test::More;
 use Finance::Quote;
 
+if (not $ENV{ONLINE_TEST}) {
+    plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test';
+}
+
+plan tests => 8;
+
 # Test finanzpartner functions.
 
 my $year = (localtime())[5] + 1900;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Finance-Quote-1.14/t/quote.t new/Finance-Quote-1.15/t/quote.t
--- old/Finance-Quote-1.14/t/quote.t	2008-10-15 14:03:35.000000000 +0200
+++ new/Finance-Quote-1.15/t/quote.t	2008-10-26 09:15:50.000000000 +0100
@@ -3,7 +3,7 @@
 use Test::More;
 use Finance::Quote;
 
-plan tests => 6;
+plan tests => 8;
 
 my $q      = Finance::Quote->new();
 
@@ -14,3 +14,5 @@
 ok($q->isoTime("1u32") eq "01:32") ;
 ok($q->isoTime("19h2") eq "19:02") ;
 ok($q->isoTime("10:62") eq "00:00" ) ;
+ok($q->isoTime("8:05am") eq "08:05" ) ;
+ok($q->isoTime("4:00pm") eq "16:00" ) ;


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



Remember to have fun...

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org

    

root＠Hilbert.suse.de

tags

participants (1)