[Gnucash-changes] r11965 - gnucash/trunk - Add support for printing currency quotes.

[David Hampton]

Author: hampton
Date: 2005-11-17 00:48:38 -0500 (Thu, 17 Nov 2005)
New Revision: 11965
Trac: http://svn.gnucash.org/trac/changeset/11965

Modified:
   gnucash/trunk/ChangeLog
   gnucash/trunk/src/quotes/dump-finance-quote
Log:
Add support for printing currency quotes.

Modified: gnucash/trunk/ChangeLog
===================================================================
--- gnucash/trunk/ChangeLog	2005-11-17 05:35:02 UTC (rev 11964)
+++ gnucash/trunk/ChangeLog	2005-11-17 05:48:38 UTC (rev 11965)
@@ -1,5 +1,8 @@
 2005-11-17  David Hampton  <hampton at 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 at employees.org>

Modified: gnucash/trunk/src/quotes/dump-finance-quote
===================================================================
--- gnucash/trunk/src/quotes/dump-finance-quote	2005-11-17 05:35:02 UTC (rev 11964)
+++ gnucash/trunk/src/quotes/dump-finance-quote	2005-11-17 05:48:38 UTC (rev 11965)
@@ -160,13 +160,22 @@
 }
 
 my $exchange = shift;
-while ($#ARGV >= 0) {
-  my $stock = shift;
-  my %quotes = $q->fetch($exchange, $stock);
-  report($stock, \%quotes, $verbose);
-  if ($#ARGV >= 0) {
-    printf "=====\n\n";
+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);
+    report($stock, \%quotes, $verbose);
+    if ($#ARGV >= 0) {
+      printf "=====\n\n";
+    }
+  }
 }
 
 =head1 NAME