r17360 - gnucash/branches/2.2/src/import-export/qif-import - [r17181] Bug #535407: Stop the QIF importer from crashing GnuCash when an invalid or unsupported date format is found.
Andreas Köhler
andi5 at cvs.gnucash.org
Sun Jul 20 19:52:47 EDT 2008
Author: andi5
Date: 2008-07-20 19:52:47 -0400 (Sun, 20 Jul 2008)
New Revision: 17360
Trac: http://svn.gnucash.org/trac/changeset/17360
Modified:
gnucash/branches/2.2/src/import-export/qif-import/qif-parse.scm
Log:
[r17181] Bug #535407: Stop the QIF importer from crashing GnuCash when an invalid or unsupported date format is found.
Committed by cedayiv.
Modified: gnucash/branches/2.2/src/import-export/qif-import/qif-parse.scm
===================================================================
--- gnucash/branches/2.2/src/import-export/qif-import/qif-parse.scm 2008-07-20 23:52:37 UTC (rev 17359)
+++ gnucash/branches/2.2/src/import-export/qif-import/qif-parse.scm 2008-07-20 23:52:47 UTC (rev 17360)
@@ -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))
More information about the gnucash-changes
mailing list