r22751 - gnucash/trunk/src/scm - Allow the price quotes perl script to return multiple quotes on a single call.

[Mike Alexander]

Author: mta
Date: 2013-02-03 21:32:50 -0500 (Sun, 03 Feb 2013)
New Revision: 22751
Trac: http://svn.gnucash.org/trac/changeset/22751

Modified:
   gnucash/trunk/src/scm/price-quotes.scm
Log:
Allow the price quotes perl script to return multiple quotes on a single call.
This makes it easier to add historical prices using a different perl script.

Modified: gnucash/trunk/src/scm/price-quotes.scm
===================================================================
--- gnucash/trunk/src/scm/price-quotes.scm	2013-02-04 00:50:13 UTC (rev 22750)
+++ gnucash/trunk/src/scm/price-quotes.scm	2013-02-04 02:32:50 UTC (rev 22751)
@@ -497,7 +497,17 @@
                  (= (length call-data) (+ 1 (length call-result))))
 
             ;; OK, continue.
-            (for-each process-a-quote (cdr call-data) call-result)
+	    (for-each
+	     (lambda (call-data-item call-result-item)
+	       (if (and (list? call-result-item) (list? (car call-result-item)))
+		   (for-each
+		    (lambda (result-subitem)
+		      (gnc:debug "call-data-item: " call-data-item)
+		      (gnc:debug "result-subitem: " result-subitem)
+		      (process-a-quote call-data-item result-subitem))
+		    call-result-item)
+		   (process-a-quote call-data-item call-result-item)))
+	     (cdr call-data) call-result)
 
             ;; else badly formed result, must assume all garbage.
             (for-each