[Gnucash-changes] r13189 - gnucash/trunk/src - Print out the installed F::Q version at startup.

[David Hampton]

Author: hampton
Date: 2006-02-09 21:12:05 -0500 (Thu, 09 Feb 2006)
New Revision: 13189
Trac: http://svn.gnucash.org/trac/changeset/13189

Modified:
   gnucash/trunk/src/quotes/finance-quote-check.in
   gnucash/trunk/src/scm/price-quotes.scm
Log:
Print out the installed F::Q version at startup.


Modified: gnucash/trunk/src/quotes/finance-quote-check.in
===================================================================
--- gnucash/trunk/src/quotes/finance-quote-check.in	2006-02-09 23:06:30 UTC (rev 13188)
+++ gnucash/trunk/src/quotes/finance-quote-check.in	2006-02-10 02:12:05 UTC (rev 13189)
@@ -84,7 +84,7 @@
 foreach my $source (@sources) {
   push(@qsources, "\"$source\"");
 }
-printf "(%s)\n", join(" ", qq/@qsources/);
+printf "(%s %s)\n", $Finance::Quote::VERSION, join(" ", qq/@qsources/);
 
 ## Local Variables:
 ## mode: perl

Modified: gnucash/trunk/src/scm/price-quotes.scm
===================================================================
--- gnucash/trunk/src/scm/price-quotes.scm	2006-02-09 23:06:30 UTC (rev 13188)
+++ gnucash/trunk/src/scm/price-quotes.scm	2006-02-10 02:12:05 UTC (rev 13189)
@@ -777,4 +777,6 @@
 (define (gnc:price-quotes-install-sources)
   (let ((sources (gnc:fq-check-sources)))
     (if (list? sources)
-        (gnc:quote-source-set-fq-installed sources))))
+	(begin
+	  (gnc:msg "Found Finance::Quote version " (car sources))
+	  (gnc:quote-source-set-fq-installed (cdr sources))))))