r22643 - gnucash/trunk/src/business/business-gnome - Drop non-functioning old test functions

[Geert Janssens]

Author: gjanssens
Date: 2012-12-12 12:43:29 -0500 (Wed, 12 Dec 2012)
New Revision: 22643
Trac: http://svn.gnucash.org/trac/changeset/22643

Modified:
   gnucash/trunk/src/business/business-gnome/business-gnome.scm
   gnucash/trunk/src/business/business-gnome/gnc-plugin-business.c
   gnucash/trunk/src/business/business-gnome/ui/gnc-plugin-business-ui.xml
Log:
Drop non-functioning old test functions

These functions were used in debugging business reports, but they don't
work anymore. The report system has moved on to using unique guids.

Modified: gnucash/trunk/src/business/business-gnome/business-gnome.scm
===================================================================
--- gnucash/trunk/src/business/business-gnome/business-gnome.scm	2012-12-12 17:43:18 UTC (rev 22642)
+++ gnucash/trunk/src/business/business-gnome/business-gnome.scm	2012-12-12 17:43:29 UTC (rev 22643)
@@ -10,13 +10,6 @@
 (use-modules (gnucash report business-reports))
 (use-modules (gnucash main))		;for gnc:debug
 
-(export gnc:reload-module)
-
-(define (gnc:reload-module name)
-  (let ((m (current-module)))
-    (load-from-path name)
-    (set-current-module m)))
-
 (define (business-report-function)
   (gnc-add-scm-extension
    (gnc:make-menu gnc:menuname-business-reports

Modified: gnucash/trunk/src/business/business-gnome/gnc-plugin-business.c
===================================================================
--- gnucash/trunk/src/business/business-gnome/gnc-plugin-business.c	2012-12-12 17:43:18 UTC (rev 22642)
+++ gnucash/trunk/src/business/business-gnome/gnc-plugin-business.c	2012-12-12 17:43:29 UTC (rev 22643)
@@ -28,7 +28,6 @@
 #include <gtk/gtk.h>
 #include <glib/gi18n.h>
 #include <string.h>
-#include <libguile.h>
 
 #include "dialog-billterms.h"
 #include "dialog-customer.h"
@@ -128,15 +127,6 @@
 static void gnc_plugin_business_cmd_test_search (GtkAction *action,
         GncMainWindowActionData *data);
 
-static void gnc_plugin_business_cmd_test_reload_invoice_report (GtkAction *action,
-        GncMainWindowActionData *data);
-
-static void gnc_plugin_business_cmd_test_reload_owner_report (GtkAction *action,
-        GncMainWindowActionData *data);
-
-static void gnc_plugin_business_cmd_test_reload_receivable_report (GtkAction *action,
-        GncMainWindowActionData *data);
-
 static void gnc_plugin_business_cmd_test_init_data (GtkAction *action,
         GncMainWindowActionData *data);
 
@@ -305,21 +295,6 @@
         G_CALLBACK (gnc_plugin_business_cmd_test_search)
     },
     {
-        "BusinessTestReloadInvoiceAction", NULL, N_("Reload invoice report"), NULL,
-        N_("Reload invoice report scheme file"),
-        G_CALLBACK (gnc_plugin_business_cmd_test_reload_invoice_report)
-    },
-    {
-        "BusinessTestReloadOwnerAction", NULL, N_("Reload owner report"), NULL,
-        N_("Reload owner report scheme file"),
-        G_CALLBACK (gnc_plugin_business_cmd_test_reload_owner_report)
-    },
-    {
-        "BusinessTestReloadReceivableAction", NULL, N_("Reload receivable report"), NULL,
-        N_("Reload receivable report scheme file"),
-        G_CALLBACK (gnc_plugin_business_cmd_test_reload_receivable_report)
-    },
-    {
         "BusinessTestInitDataAction", NULL, N_("Initialize Test Data"), NULL,
         N_("Initialize Test Data"),
         G_CALLBACK (gnc_plugin_business_cmd_test_init_data)
@@ -827,36 +802,6 @@
     gnc_search_dialog_test();
 }
 
-static void
-gnc_plugin_business_reload_module (const gchar *name)
-{
-    SCM file_scm;
-
-    file_scm = scm_makfrom0str (name);
-    scm_call_1(scm_c_eval_string("gnc:reload-module"), file_scm);
-}
-
-static void
-gnc_plugin_business_cmd_test_reload_invoice_report (GtkAction *action,
-        GncMainWindowActionData *data)
-{
-    gnc_plugin_business_reload_module("gnucash/report/invoice.scm");
-}
-
-static void
-gnc_plugin_business_cmd_test_reload_owner_report (GtkAction *action,
-        GncMainWindowActionData *data)
-{
-    gnc_plugin_business_reload_module("gnucash/report/owner-report.scm");
-}
-
-static void
-gnc_plugin_business_cmd_test_reload_receivable_report (GtkAction *action,
-        GncMainWindowActionData *data)
-{
-    gnc_plugin_business_reload_module("gnucash/report/receivable-report.scm");
-}
-
 static void gnc_business_assign_payment (GtkWidget *parent,
         Transaction *trans,
         GncOwner *owner)

Modified: gnucash/trunk/src/business/business-gnome/ui/gnc-plugin-business-ui.xml
===================================================================
--- gnucash/trunk/src/business/business-gnome/ui/gnc-plugin-business-ui.xml	2012-12-12 17:43:18 UTC (rev 22642)
+++ gnucash/trunk/src/business/business-gnome/ui/gnc-plugin-business-ui.xml	2012-12-12 17:43:29 UTC (rev 22643)
@@ -56,9 +56,6 @@
       <placeholder name="ExtensionsPlaceholder">
       	<menu name="BusinessTest" action="BusinessTestAction">
       	  <menuitem name="BusinessTestSearch" action="BusinessTestSearchAction"/>
-      	  <menuitem name="BusinessTestReloadInvoice" action="BusinessTestReloadInvoiceAction"/>
-      	  <menuitem name="BusinessTestReloadOwner" action="BusinessTestReloadOwnerAction"/>
-      	  <menuitem name="BusinessTestReloadReceivable" action="BusinessTestReloadReceivableAction"/>
       	  <menuitem name="BusinessTestInitData" action="BusinessTestInitDataAction"/>
       	</menu>
       </placeholder>