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

Merge from stable branch.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2551 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-07-10 00:26:40 +00:00
parent aa4509f0e6
commit f532db40ca
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
AUTHORS
View File

@ -103,7 +103,7 @@ Henning Spruth <spruth@bigfoot.com> for German text & euro date rework
Robby Stephenson <robby.stephenson@usa.net> register & file history patches Robby Stephenson <robby.stephenson@usa.net> register & file history patches
Herbert Thoma <tma@iis.fhg.de> gnome register & euro support patches Herbert Thoma <tma@iis.fhg.de> gnome register & euro support patches
Diane Trout <detrout@earthlink.net> scheme qif import patch Diane Trout <detrout@earthlink.net> scheme qif import patch
Richard Wackerbarth <rkw@dataplex.net> patch to gnc-prices Richard Wackerbarth <rkw@dataplex.net> patch to gnc-prices, qif import fixes
Rob Walker <rob@valinux.com> guile and register patches Rob Walker <rob@valinux.com> guile and register patches
David Woodhouse <dwmw2@infradead.org> Great Britain translations David Woodhouse <dwmw2@infradead.org> Great Britain translations
Ken Yamaguchi <gooch@ic.EECS.Berkeley.EDU> QIF import fixes; MYM import Ken Yamaguchi <gooch@ic.EECS.Berkeley.EDU> QIF import fixes; MYM import

2
doc/html/C/xacc-about.html
View File

@ -516,7 +516,7 @@
<dt><a href="mailto:rkw@dataplex.net">Richard <dt><a href="mailto:rkw@dataplex.net">Richard
Wackerbarth</a></dt> Wackerbarth</a></dt>
<dd>patch to gnc-prices</dd> <dd>patch to gnc-prices, qif import fixes</dd>
<dt><a href="mailto:rob@valinux.com">Rob Walker</a></dt> <dt><a href="mailto:rob@valinux.com">Rob Walker</a></dt>

6
src/scm/qif-import/qif-file.scm
View File

@ -23,6 +23,7 @@
(current-xtn #f) (current-xtn #f)
(current-split #f) (current-split #f)
(current-account-name #f) (current-account-name #f)
(last-seen-account-name #f)
(default-split #f) (default-split #f)
(first-xtn #f) (first-xtn #f)
(ignore-accounts #f) (ignore-accounts #f)
@ -60,6 +61,8 @@
(case qstate-type (case qstate-type
((type:bank type:cash type:ccard type:invst ((type:bank type:cash type:ccard type:invst
#{type:oth\ a}# #{type:oth\ l}#) #{type:oth\ a}# #{type:oth\ l}#)
(if ignore-accounts (set! current-account-name last-seen-account-name))
(set! ignore-accounts #f)
(set! current-xtn (make-qif-xtn)) (set! current-xtn (make-qif-xtn))
(set! default-split (make-qif-split)) (set! default-split (make-qif-split))
(qif-split:set-category! default-split "") (qif-split:set-category! default-split "")
@ -234,7 +237,8 @@
((account) ((account)
(case tag (case tag
((#\N) ((#\N)
(qif-acct:set-name! current-xtn value)) (qif-acct:set-name! current-xtn value)
(set! last-seen-account-name value))
((#\D) ((#\D)
(qif-acct:set-description! current-xtn value)) (qif-acct:set-description! current-xtn value))
((#\T) ((#\T)