mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Add support for printing currency quotes.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@11965 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
0b8a944f30
commit
0046dfc6bd
@ -1,5 +1,8 @@
|
||||
2005-11-17 David Hampton <hampton@employees.org>
|
||||
|
||||
* src/quotes/dump-finance-quote: Add support for printing currency
|
||||
quotes.
|
||||
|
||||
* most files: Update FSF street address.
|
||||
|
||||
2005-11-16 David Hampton <hampton@employees.org>
|
||||
|
@ -160,6 +160,14 @@ if (@ARGV[0] eq "-v") {
|
||||
}
|
||||
|
||||
my $exchange = shift;
|
||||
if ($exchange eq "currency") {
|
||||
my $from = shift;
|
||||
while ($#ARGV >= 0) {
|
||||
my $to = shift;
|
||||
my $result = $q->currency($from, $to);
|
||||
printf "1 $from = $result $to\n";
|
||||
}
|
||||
} else {
|
||||
while ($#ARGV >= 0) {
|
||||
my $stock = shift;
|
||||
my %quotes = $q->fetch($exchange, $stock);
|
||||
@ -168,6 +176,7 @@ while ($#ARGV >= 0) {
|
||||
printf "=====\n\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
=head1 NAME
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user