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

In QIF import, allow a leading '+' sign in the currency field.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7723 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
David Hampton 2002-12-24 07:48:02 +00:00
parent c8c133ac35
commit c812daf775
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,5 +1,10 @@
2002-12-23 David Hampton <hampton@employees.org> 2002-12-23 David Hampton <hampton@employees.org>
* src/import-export/qif-import/qif-parse.scm: Fix regexps to
handle a leading '+' sign in the currency field. (Bug reported on
gnucash-user.)
* src/gnome-utils/gnc-html.c: The stream_handler hook needs to * src/gnome-utils/gnc-html.c: The stream_handler hook needs to
return a file size. Not all files opened by this function are return a file size. Not all files opened by this function are
ASCII text. Reset the base_location properly when switching ASCII text. Reset the base_location properly when switching

6
src/import-export/qif-import/qif-parse.scm
View File

@ -14,13 +14,13 @@
(define decimal-radix-regexp (define decimal-radix-regexp
(make-regexp (make-regexp
"^ *\\$?-?\\$?[0-9]+$|^ *\\$?-?\\$?[0-9]?[0-9]?[0-9]?(,[0-9][0-9][0-9])*(\\.[0-9]*)? *$|^ *\\$?-?\\$?[0-9]+\\.[0-9]* *$")) "^ *\\$?[+-]?\\$?[0-9]+$|^ *\\$?[+-]?\\$?[0-9]?[0-9]?[0-9]?(,[0-9][0-9][0-9])*(\\.[0-9]*)? *$|^ *\\$?[+-]?\\$?[0-9]+\\.[0-9]* *$"))
(define comma-radix-regexp (define comma-radix-regexp
(make-regexp (make-regexp
"^ *\\$?-?\\$?[0-9]+$|^ *\\$?-?\\$?[0-9]?[0-9]?[0-9]?(\\.[0-9][0-9][0-9])*(,[0-9]*) *$|^ *\\$?-?\\$?[0-9]+,[0-9]* *$")) "^ *\\$?[+-]?\\$?[0-9]+$|^ *\\$?[+-]?\\$?[0-9]?[0-9]?[0-9]?(\\.[0-9][0-9][0-9])*(,[0-9]*) *$|^ *\\$?[+-]?\\$?[0-9]+,[0-9]* *$"))
(define integer-regexp (make-regexp "^\\$?-?\\$?[0-9]+ *$")) (define integer-regexp (make-regexp "^\\$?[+-]?\\$?[0-9]+ *$"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; qif-split:parse-category ;; qif-split:parse-category