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

Revert "Fix price-reading crash if the price needs to be inverted."

Browse Source 
This reverts commit 027080a830,
and is step 2 in reverting the single-price changes.
This commit is contained in:
John Ralls 2015-10-23 11:44:57 -07:00
parent 9fc0c4667c
commit 39d43a31fa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -419,12 +419,12 @@
(set! saved-price (gnc-pricedb-lookup-day pricedb (set! saved-price (gnc-pricedb-lookup-day pricedb
commodity currency commodity currency
gnc-time)) gnc-time))
(if (null? saved-price) ;;See if there's a reversed price. (if (null? saved-price)
(begin (begin
(set! saved-price (gnc-pricedb-lookup-day pricedb currency (set! saved-price (gnc-pricedb-lookup-day pricedb currency
commodity gnc-time)) commodity gnc-time))
(if (not (null? saved-price)) (if (not (null? saved-price))
(set! price (gnc-numeric-invert price))))) (set! price (gnc-numeric-invert(price))))))
(if (not (null? saved-price)) (if (not (null? saved-price))
(if (> (gnc-price-get-source saved-price) PRICE-SOURCE-FQ) (if (> (gnc-price-get-source saved-price) PRICE-SOURCE-FQ)
(begin (begin