gnucash maint: Bug 776247 - PriceEditor thinks Currency XXX is an actual currency...

[John Ralls]

Updated	 via  https://github.com/Gnucash/gnucash/commit/41a346cb (commit)
	from  https://github.com/Gnucash/gnucash/commit/1cbb25da (commit)



commit 41a346cbd8611cb6f89313c1ce605e63a556ec54
Author: John Ralls <jralls at ceridwen.us>
Date:   Thu Mar 23 13:41:35 2017 -0700

    Bug 776247 - PriceEditor thinks Currency XXX is an actual currency...
    
    and tries to retrieve prices for it.
    
    Add check for "XXX" mnemonic when filtering the currency list.

diff --git a/src/scm/price-quotes.scm b/src/scm/price-quotes.scm
index 2a5e1f7..8161e83 100644
--- a/src/scm/price-quotes.scm
+++ b/src/scm/price-quotes.scm
@@ -222,7 +222,11 @@
 	     ct))
 	   (commodity-list #f)
 	   (currency-list (filter
-			   (lambda (a) (not (gnc-commodity-equiv (cadr a) (caddr a))))
+			   (lambda (a)
+                             (and
+                              (not (gnc-commodity-equiv (cadr a) (caddr a)))
+                              (not (string=? "XXX" (gnc-commodity-get-mnemonic (cadr a))))
+                              ))
 			   (call-with-values
                                (lambda () (partition!
                                            (lambda (cmd)



Summary of changes:
 src/scm/price-quotes.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)