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

Bug 756335 - When importing, date selection causes exit crash

Browse Source
This commit is contained in:
John Ralls 2015-10-10 19:23:29 -07:00
parent fb67e1f265
commit 5c496328d4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/import-export/qif-imp/qif-parse.scm
View File

@ -419,8 +419,8 @@
(let ((retval '()))
(if (or (not (string? date-string))
(not (> (string-length date-string) 0)))
(set! retval possible-formats))
(let ((match (regexp-exec qif-date-compiled-rexp date-string)))
(set! retval possible-formats)
(let ((match (regexp-exec qif-date-compiled-rexp date-string)))
(if match
(if (match:substring match 1)
(set! retval (parse-check-date-format match possible-formats))
@ -442,7 +442,8 @@
(memq 'm-d-y possible-formats))
(set! res2 (parse-check-date-format date-mdy possible-formats)))
(set! retval (append res1 res2))))))
(set! retval (append res1 res2)))))))
retval))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;