IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-26 02:40:43 -06:00
Code Issues Packages Projects Releases Wiki Activity

Bug #535407: Stop the QIF importer from crashing GnuCash when an invalid or unsupported date format is found.

Browse Source 
BP


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17181 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Charles Day 2008-05-29 21:13:24 +00:00
parent d8eac7b083
commit 8ef7e9cd99
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/import-export/qif-import/qif-parse.scm
View File

@ -312,7 +312,7 @@
(match:substring match 2)
(match:substring match 3)))
(numeric-date-parts '())
(retval #f))
(retval '()))
;;(define (print-list l)
;; (for-each (lambda (x) (display x) (display " ")) l))
@ -388,7 +388,7 @@
;; of possibilities.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (qif-parse:check-date-format date-string possible-formats)
(let ((retval #f))
(let ((retval '()))
(if (or (not (string? date-string))
(not (> (string-length date-string) 0)))
(set! retval possible-formats))