From 4c17c7e2dd7edc58f1c0fac69ab61d9307c99eb0 Mon Sep 17 00:00:00 2001 From: Christian Stimming Date: Sun, 28 Jul 2002 21:15:39 +0000 Subject: [PATCH] 2002-07-28 Christian Stimming * src/scm/main.scm: Add module-load for HBCI. * src/import-export/hbci/*: Thanks to Benoit Gregoire, the initial HBCI druid is at least visible now. Still no code that would really do anything, though. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7128 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 8 ++++++++ src/import-export/Makefile.am | 2 +- src/import-export/hbci/gncmod-hbci.c | 7 +++---- src/import-export/hbci/hbci.scm | 10 +++------- src/scm/main.scm | 1 + 5 files changed, 16 insertions(+), 12 deletions(-) diff --git a/ChangeLog b/ChangeLog index 90b3c34321..ec4ced2905 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2002-07-28 Christian Stimming + + * src/scm/main.scm: Add module-load for HBCI. + + * src/import-export/hbci/*: Thanks to Benoit Gregoire, the initial + HBCI druid is at least visible now. Still no code that would + really do anything, though. + 2002-07-27 Christian Stimming * configure.in: Add --enable-hbci configure option. diff --git a/src/import-export/Makefile.am b/src/import-export/Makefile.am index e878537a35..c37ebdac0c 100644 --- a/src/import-export/Makefile.am +++ b/src/import-export/Makefile.am @@ -1,4 +1,4 @@ -SUBDIRS = . binary-import qif-import ${OFX_DIR} test +SUBDIRS = . binary-import qif-import ${OFX_DIR} ${HBCI_DIR} test pkglib_LTLIBRARIES=libgncmod-generic-import.la diff --git a/src/import-export/hbci/gncmod-hbci.c b/src/import-export/hbci/gncmod-hbci.c index 54df02f137..d31b55af17 100644 --- a/src/import-export/hbci/gncmod-hbci.c +++ b/src/import-export/hbci/gncmod-hbci.c @@ -61,10 +61,9 @@ gnc_module_init(int refcount) { } /* load the HBCI Scheme code */ - if(gh_eval_str("(load-from-path \"hbci/hbci.scm\")") == - SCM_BOOL_F) { - return FALSE; - } + gh_eval_str("(load-from-path \"hbci/hbci.scm\")"); + + printf("Load the HBCI initial druid\n"); gh_new_procedure("gnc:hbci-initial-setup", scm_hbci_initial_druid, 0, 0, 0); diff --git a/src/import-export/hbci/hbci.scm b/src/import-export/hbci/hbci.scm index 41bfcd38f2..e0b6f84a30 100644 --- a/src/import-export/hbci/hbci.scm +++ b/src/import-export/hbci/hbci.scm @@ -5,13 +5,9 @@ ;; Copyright (c) 2002 Christian ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define-module (gnucash import-export hbci)) - -(use-modules (gnucash main)) - (define (add-hbci-menu-items) (gnc:add-extension - (gnc:make-menu "HBCI" (list "_Tools" ))) + (gnc:make-menu "HBCI" (list "_Tools" ""))) (gnc:add-extension @@ -19,11 +15,11 @@ (N_ "Initial HBCI Setup") (list "_Tools" "HBCI" "") (lambda () - (gnc:hbci-initial-setup)))) + (gnc:hbci-initial-setup))))) ;;(gnc:add-extension ;; (gnc:make-menu-item (N_ "Finish HBCI Setup") ;; (N_ "Finish HBCI Setup") - ;; (list "_Tools" "HBCI" "") + ;; (list "Tools" "HBCI" "") ;; (lambda () ;; (gnc:hbci-finish-setup))))) diff --git a/src/scm/main.scm b/src/scm/main.scm index 23b646d2c6..b58d97b884 100644 --- a/src/scm/main.scm +++ b/src/scm/main.scm @@ -375,6 +375,7 @@ string and 'directories' must be a list of strings." (gnc:module-load "gnucash/import-export/binary-import" 0) (gnc:module-load "gnucash/import-export/qif-import" 0) (gnc:module-load-optional "gnucash/import-export/ofx" 0) + (gnc:module-load-optional "gnucash/import-export/hbci" 0) (gnc:module-load "gnucash/report/report-system" 0) (gnc:module-load "gnucash/report/stylesheets" 0) (gnc:module-load "gnucash/report/standard-reports" 0)