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

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7723 57a11ea4-9604-0410-9ed3-97b8803252fd

ChangeLog

@@ -1,5 +1,10 @@
 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
 	return a file size. Not all files opened by this function are
 	ASCII text.  Reset the base_location properly when switching

src/import-export/qif-import/qif-parse.scm

@@ -14,13 +14,13 @@
 
 (define decimal-radix-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
   (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