[Gnucash-changes] whoops

[Linas Vepstas]

Log Message:
-----------
whoops

Modified Files:
--------------
    gnucash/src/engine:
        policy.c

Revision Data
-------------
Index: policy.c
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/engine/policy.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -Lsrc/engine/policy.c -Lsrc/engine/policy.c -u -r1.5 -r1.6
--- src/engine/policy.c
+++ src/engine/policy.c
@@ -78,11 +78,15 @@
    }
    while (node)
    {
+      gboolean is_match;
       gboolean is_positive;
       split = node->data;
       if (split->lot) goto donext;
 
-		if (common_currency != split->parent->common_currency) goto donext;
+      /* Allow equiv currencies */
+		is_match = gnc_commodity_equiv (common_currency, 
+                                      split->parent->common_currency);
+		if (FALSE == is_match) goto donext;
 
       is_positive = gnc_numeric_positive_p (split->amount);
       if ((want_positive && is_positive) ||