From 981950d7dba958e99a6504c1c78b440c081b5e1a Mon Sep 17 00:00:00 2001 From: David Hampton Date: Fri, 10 Feb 2006 02:12:05 +0000 Subject: [PATCH] Print out the installed F::Q version at startup. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13189 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/quotes/finance-quote-check.in | 2 +- src/scm/price-quotes.scm | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/quotes/finance-quote-check.in b/src/quotes/finance-quote-check.in index 742369d7f1..630c0c65ca 100644 --- a/src/quotes/finance-quote-check.in +++ b/src/quotes/finance-quote-check.in @@ -84,7 +84,7 @@ my @sources = $quoter->sources(); 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 diff --git a/src/scm/price-quotes.scm b/src/scm/price-quotes.scm index 08f0b6f077..3991e00736 100644 --- a/src/scm/price-quotes.scm +++ b/src/scm/price-quotes.scm @@ -777,4 +777,6 @@ Run 'update-finance-quote' as root to install them.") "\n"))) (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))))))