r23722 - gnucash/trunk/src/report/standard-reports - Advanced Portfolio: Don't print footnotes if the account that needs them isn't included.

[Mike Alexander]

Author: mta
Date: 2014-01-19 17:40:11 -0500 (Sun, 19 Jan 2014)
New Revision: 23722
Trac: http://svn.gnucash.org/trac/changeset/23722

Modified:
   gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
Log:
Advanced Portfolio: Don't print footnotes if the account that needs them isn't included.

Modified: gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2014-01-19 21:22:09 UTC (rev 23721)
+++ gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2014-01-19 22:40:11 UTC (rev 23722)
@@ -719,13 +719,6 @@
 	    (gnc:debug "prefer-pricelist is " prefer-pricelist)
 	    (gnc:debug "price is " price)
 
-	    ;; okay we're using the txn, so warn the user
-	    (if use-txn
-	        (if pricing-txn
-		    (set! warn-price-dirty #t)
-		    (set! warn-no-price #t)
-		))
-
 	    (gnc:debug "basis we're using to build rows is " (gnc-numeric-to-string (sum-basis basis-list 
 	                                                            currency-frac)))
 	    (gnc:debug "but the actual basis list is " basis-list)
@@ -757,6 +750,13 @@
 		  (activecols (list (gnc:html-account-anchor current)))
 		  )
 
+              ;; If we're using the txn, warn the user
+              (if use-txn
+                  (if pricing-txn
+                      (set! warn-price-dirty #t)
+                      (set! warn-no-price #t)
+                  ))
+
 	      (total-value 'add (gnc:gnc-monetary-commodity value) (gnc:gnc-monetary-amount value))
 	      (total-moneyin 'merge moneyincoll #f)
 	      (total-moneyout 'merge moneyoutcoll #f)