IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Phil Longstaff's patch for begin/commit edit in price quotes.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15860 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2007-04-10 14:17:11 +00:00
parent 4a8089b4c5
commit 0db8a768b4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/scm/price-quotes.scm
View File

@ -581,12 +581,14 @@
(string-append (string-append
currency-str ":" (gnc-commodity-get-mnemonic commodity)) currency-str ":" (gnc-commodity-get-mnemonic commodity))
(begin (begin
(gnc-price-begin-edit gnc-price)
(gnc-price-set-commodity gnc-price commodity) (gnc-price-set-commodity gnc-price commodity)
(gnc-price-set-currency gnc-price currency) (gnc-price-set-currency gnc-price currency)
(gnc-price-set-time gnc-price gnc-time) (gnc-price-set-time gnc-price gnc-time)
(gnc-price-set-source gnc-price "Finance::Quote") (gnc-price-set-source gnc-price "Finance::Quote")
(gnc-price-set-typestr gnc-price price-type) (gnc-price-set-typestr gnc-price price-type)
(gnc-price-set-value gnc-price price) (gnc-price-set-value gnc-price price)
(gnc-price-commit-edit gnc-price)
gnc-price)))))) gnc-price))))))
(define (book-add-prices! book prices) (define (book-add-prices! book prices)