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

Merge John Ralls's 'bug799420' into stable

Browse Source
This commit is contained in:
John Ralls
2024-12-10 20:24:41 -08:00
parent 6c2168772b 902f108b81
commit ffb3069044
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
gnucash/import-export/qif-imp/qif-to-gnc.scm
View File

@@ -430,7 +430,11 @@
;; Update the progress.
(update-progress)
(if (not (qif-xtn:mark xtn))
;; xaccTransCommitEdit will delete the transaction if
;; there aren't at least 2 splits and that will cause a
;; UAF in xaccTransRecordPrice. See https://bugs.gnucash.org/show_bug.cgi?id=799420
(let ((splits (qif-xtn:splits xtn)))
(if (not (or (qif-xtn:mark xtn) (or (null? splits) (null? (cdr splits)))))
;; Convert into a GnuCash transaction.
(let ((gnc-xtn (xaccMallocTransaction
(gnc-get-current-book))))
@@ -451,7 +455,8 @@
;; rebalance and commit everything
(xaccTransCommitEdit gnc-xtn)
(xaccTransRecordPrice gnc-xtn PRICE-SOURCE-SPLIT-IMPORT))))
(format #t "transaction splits ~s~%" (qif-xtn:splits xtn))
(xaccTransRecordPrice gnc-xtn PRICE-SOURCE-SPLIT-IMPORT)))))
(qif-file:xtns qif-file)))
sorted-qif-files-list)