Merge from stable branch.

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

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
Herbert Thoma <tma@iis.fhg.de> gnome register & euro support patches
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
David Woodhouse <dwmw2@infradead.org> Great Britain translations
Ken Yamaguchi <gooch@ic.EECS.Berkeley.EDU> QIF import fixes; MYM import

View File

@ -516,7 +516,7 @@
<dt><a href="mailto:rkw@dataplex.net">Richard
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>

View File

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