IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

add vanguard suipport

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1610 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas
1999-01-10 23:07:38 +00:00
parent 6990196c4e
commit ec1a76090e
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/quotes/Quote.pm
View File

@@ -428,9 +428,10 @@ Finance::Quote - Get stock and mutual fund quotes from various exchanges
=head1 SYNOPSIS
use Finance::Quote;
%quotes = Quote::yahoo @symbols; # Get quotes for a bunch of symbols
%quotes = Quote::fidelity @symbols; # Get quotes for a bunch of symbols
%quotes = Quote::yahoo @symbols; # Get NYSE quotes from Yahoo
%quotes = Quote::fidelity @symbols; # Get quotes from Fidelity Investments
%quotes = Quote::troweprice @symbols; # Get quotes from T. Rowe Price
%quotes = Quote::vanguard @symbols; # Get quotes from the Vanguard Group
print ("the last price was ", $quotes {"IBM", "last"} );
=head1 DESCRIPTION

5
src/quotes/gnc-prices
View File

@@ -149,6 +149,11 @@ foreach $acct (@acctlist) {
$price = $quotes {$security, "nav"};
last QUOTE;
}
if ("VANGUARD" eq $quotesrc) {
%quotes = &Quote::vanguard ($security);
$price = $quotes {$security, "nav"};
last QUOTE;
}
next ACCTLOOP; # no quote available, go to next account
}
$dayte = $quotes {$security, "date"};