Install price quote sources without calling main.scm.

This makes the startup sequence a little clearer.


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

src/bin/gnucash-bin.c

@@ -361,6 +361,12 @@ inner_main (void *closure, int argc, char **argv)
     gnc_hook_add_dangler(HOOK_UI_SHUTDOWN, (GFunc)gnc_file_quit, NULL);
 
     scm_c_eval_string("(gnc:main)");
+
+    /* Install Price Quote Sources */
+    gnc_update_splash_screen(_("Checking Finance::Quote..."));
+    scm_c_use_module("gnucash price-quotes");
+    scm_c_eval_string("(gnc:price-quotes-install-sources)");  
+
     gnc_hook_run(HOOK_STARTUP, NULL);
     
     if (!nofile && (fn = get_file_to_load())) {

src/scm/main.scm

@@ -232,6 +232,7 @@
 
   ;; Now we can load a bunch of files.
   (load-from-path "command-line.scm") ;; depends on app-utils (N_, etc.)...
+  (load-from-path "printing/print-check.scm") ;; depends on simple-obj...
 
   (gnc:initialize-config-vars) ;; in command-line.scm
   ;; handle unrecognized command line args
@@ -242,11 +243,5 @@
                            gnc:main-window-book-close-handler)
   (gnc:hook-add-dangler gnc:*book-closed-hook* 
                         gnc:main-window-book-close-handler)
-  
-  (load-from-path "printing/print-check.scm") ;; depends on simple-obj...
-  
-  (gnc:update-splash-screen (_ "Checking Finance::Quote..."))
-  (gnc:price-quotes-install-sources)  
-  
   ;;return to C
   )

src/scm/price-quotes.scm

@@ -23,9 +23,7 @@
 (define-module (gnucash price-quotes))
 
 (export yahoo-get-historical-quotes)
-;;(export gnc:fq-check-sources) ;; called in main.scm
 (export gnc:book-add-quotes) ;; called from gnome/dialog-price-edit-db.c
-(export gnc:add-quotes-to-book-at-url) ;; called in command-line.scm
 (export gnc:price-quotes-install-sources)
 
 (use-modules (gnucash process))