cleanup and prep work for qif import from cbbrowne@godel.brownes.org

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

src/scm/bootstrap.scm.in

@@ -87,8 +87,8 @@ file in all of the directories specified by gnc:*load-path*."
     (if (not file-name)
         #f
         (if 
-         ;;(false-if-exception (primitive-load file-name))
-         (primitive-load file-name)
+         (false-if-exception (primitive-load file-name))
+         ;(primitive-load file-name)
          (begin
            (gnc:debug "loaded file " file-name)
            #t)

src/scm/extensions.scm

@@ -18,6 +18,11 @@
                                   (gnc:error-message-dialog
                                    "Some error didn't occur.")))
 
+  (gnc:extensions-menu-add-item "QIF Import"
+                                "Import QIF hint"
+                                (lambda () 
+				  (gnc:extensions-qif-import win)))
+
   (gnc:extensions-menu-add-item
    "Test verify dialog"
    "Test verify dialog hint"

src/scm/main.scm

@@ -8,8 +8,9 @@
   
   (gnc:load "hooks.scm")
   (gnc:load "doc.scm")
-  (gnc:load "extensions.scm")           ; Should this be here or somewhere else?
+  (gnc:load "extensions.scm")      ; Should this be here or somewhere else?
   (gnc:load "text-export.scm")
+  (gnc:load "importqif.scm")
   
   ;; Load the system and user configs
   (if (not (gnc:load-system-config-if-needed))

src/scm/text-export.scm

@@ -99,7 +99,8 @@
 
 (define (gnc:main-win-export-data-as-text win) 
   (let ((account-group #f)
-        (session (gnc:main-window-get-session win)))
+;        (session (gnc:main-window-get-session win)))
+        (session (gnc:main-window-get-session)))
     
     (if session (set! account-group (gnc:session-get-group session)))