r15860 - gnucash/trunk - Phil Longstaff's patch for begin/commit edit in price quotes.

[Derek Atkins]

Author: warlord
Date: 2007-04-10 10:17:11 -0400 (Tue, 10 Apr 2007)
New Revision: 15860
Trac: http://svn.gnucash.org/trac/changeset/15860

Modified:
   gnucash/trunk/
   gnucash/trunk/src/scm/price-quotes.scm
Log:
Phil Longstaff's patch for begin/commit edit in price quotes.



Property changes on: gnucash/trunk
___________________________________________________________________
Name: svk:merge
   - 3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/branches/swig-redo:802
3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/trunk:1037
57a11ea4-9604-0410-9ed3-97b8803252fd:/gnucash/branches/gobject-engine-dev-warlord:15827
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/branches/gobject-engine-dev-warlord:14369
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/branches/gobject-engine-dev-warlord1:14446
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk:14482
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk2:13366
   + 3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/branches/swig-redo:802
3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/trunk:1037
57a11ea4-9604-0410-9ed3-97b8803252fd:/gnucash/branches/gobject-engine-dev-warlord:15827
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/branches/gobject-engine-dev-warlord:14369
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/branches/gobject-engine-dev-warlord1:14446
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk:14489
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk2:13366

Modified: gnucash/trunk/src/scm/price-quotes.scm
===================================================================
--- gnucash/trunk/src/scm/price-quotes.scm	2007-04-10 13:14:20 UTC (rev 15859)
+++ gnucash/trunk/src/scm/price-quotes.scm	2007-04-10 14:17:11 UTC (rev 15860)
@@ -581,12 +581,14 @@
                 (string-append
                  currency-str ":" (gnc-commodity-get-mnemonic commodity))
                 (begin
+				  (gnc-price-begin-edit gnc-price)
                   (gnc-price-set-commodity gnc-price commodity)
                   (gnc-price-set-currency gnc-price currency)
                   (gnc-price-set-time gnc-price gnc-time)
                   (gnc-price-set-source gnc-price "Finance::Quote")
                   (gnc-price-set-typestr gnc-price price-type)
                   (gnc-price-set-value gnc-price price)
+				  (gnc-price-commit-edit gnc-price)
                   gnc-price))))))
 
   (define (book-add-prices! book prices)