mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Derek Atkins' patch to the qif importer druid.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3676 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
46c2ce47c4
commit
e7292ffab9
@ -710,6 +710,16 @@ gnc_ui_qif_import_date_format_next_cb(GnomeDruidPage * page,
|
|||||||
gh_call2(reparse_dates, wind->selected_file, format_sym);
|
gh_call2(reparse_dates, wind->selected_file, format_sym);
|
||||||
|
|
||||||
if(gh_call1(check_from_acct, wind->selected_file) != SCM_BOOL_T) {
|
if(gh_call1(check_from_acct, wind->selected_file) != SCM_BOOL_T) {
|
||||||
|
SCM default_acct = gh_eval_str("qif-file:path-to-accountname");
|
||||||
|
char * default_acctname;
|
||||||
|
|
||||||
|
default_acctname = gh_scm2newstr(gh_call1(default_acct,
|
||||||
|
wind->selected_file),
|
||||||
|
NULL);
|
||||||
|
gtk_entry_set_text(GTK_ENTRY(wind->acct_entry), default_acctname);
|
||||||
|
|
||||||
|
if(default_acctname) free(default_acctname);
|
||||||
|
|
||||||
return FALSE;
|
return FALSE;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
|
Loading…
Reference in New Issue
Block a user