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

Print out the installed F::Q version at startup.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13189 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
David Hampton 2006-02-10 02:12:05 +00:00
parent 9b61f0f6c5
commit 981950d7db
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/quotes/finance-quote-check.in
View File

@ -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

4
src/scm/price-quotes.scm
View File

@ -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))))))