Add validation of tax-entity-type in book relative to locale-based tsx.scm

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

src/app-utils/gnc-ui-util.c

@@ -459,6 +459,7 @@ gnc_ui_account_get_balance_as_of_date (Account *account,
 char *
 gnc_ui_account_get_tax_info_string (const Account *account)
 {
+    static SCM get_tax_entity_types = SCM_UNDEFINED;
     static SCM get_form = SCM_UNDEFINED;
     static SCM get_desc = SCM_UNDEFINED;
 
@@ -498,15 +499,17 @@ gnc_ui_account_get_tax_info_string (const Account *account)
     }
     else  /* with tax code */
     {
+        SCM tax_types;
+        gboolean tax_type_valid = FALSE;
         const gchar *num_code = NULL;
         const gchar *prefix = "N";
 
         tax_type = gnc_get_current_book_tax_type ();
         if (tax_type == NULL || (safe_strcmp (tax_type, "") == 0))
             return g_strdup (_("Tax entity type not specified"));
+
         atype = xaccAccountGetType (account);
-        /*    tax_entity_type = scm_from_locale_string (tax_type); <- requires guile 1.8*/
+        tax_entity_type = scm_from_locale_string (tax_type);
-        tax_entity_type = scm_makfrom0str (tax_type); /* <-guile 1.6  */
 
         if (get_form == SCM_UNDEFINED)
         {
@@ -536,14 +539,38 @@ gnc_ui_account_get_tax_info_string (const Account *account)
 
             g_return_val_if_fail (module, NULL);
 
-            get_form = scm_c_eval_string ("(false-if-exception gnc:txf-get-form)");
+            get_tax_entity_types = scm_c_eval_string
+                ("(false-if-exception gnc:txf-get-tax-entity-type-codes)");
+            get_form = scm_c_eval_string
+                ("(false-if-exception gnc:txf-get-form)");
             get_desc = scm_c_eval_string
-                       ("(false-if-exception gnc:txf-get-description)");
+                ("(false-if-exception gnc:txf-get-description)");
         }
 
+        g_return_val_if_fail (scm_is_procedure (get_tax_entity_types),
+            NULL);
         g_return_val_if_fail (scm_is_procedure (get_form), NULL);
         g_return_val_if_fail (scm_is_procedure (get_desc), NULL);
 
+        tax_types = scm_call_0 (get_tax_entity_types);
+        if (!scm_is_list (tax_types))
+            return g_strdup (_("Tax entity types not available"));
+        while (!scm_is_null (tax_types))
+        {
+            SCM type_scm;
+            gchar *str;
+
+            type_scm  = SCM_CAR (tax_types);
+            tax_types = SCM_CDR (tax_types);
+            str = scm_is_symbol(type_scm) ? SCM_SYMBOL_CHARS(type_scm) : "";
+            if (safe_strcmp (tax_type, str) == 0)
+                tax_type_valid = TRUE;
+            /* g_free (str); */
+        }
+        if (!tax_type_valid)
+            return g_strdup_printf (_("Tax entity type not valid: %s"),
+                        tax_type);
+
         category = scm_c_eval_string (atype == ACCT_TYPE_INCOME ?
                                       "txf-income-categories" :
                                       (atype == ACCT_TYPE_EXPENSE ?

src/gnome/dialog-tax-info.c

@@ -227,6 +227,8 @@ load_txf_info (gint acct_category, TaxInfoDialog *ti_dialog)
     SCM tax_entity_type;
     SCM category;
     SCM codes;
+    SCM tax_types;
+    gboolean tax_type_valid = FALSE;
 
     if (ti_dialog->tax_type == NULL ||
             (safe_strcmp (ti_dialog->tax_type, "") == 0))
@@ -236,8 +238,32 @@ load_txf_info (gint acct_category, TaxInfoDialog *ti_dialog)
     }
     else
     {
-        /*     tax_entity_type = scm_from_locale_string (ti_dialog->tax_type); <- Req's guile 1.8 */
+        tax_entity_type = scm_from_locale_string (ti_dialog->tax_type);
-        tax_entity_type = scm_makfrom0str (ti_dialog->tax_type); /* <-guile 1.6  */
+    }
+
+    /* validate that tax_type in book is valid (can be untrue if locales
+       are changed) */
+    tax_types = scm_call_0 (getters.tax_entity_types);
+    if (!scm_is_list (tax_types))
+    {
+        destroy_txf_infos (infos);
+        return NULL;
+    }
+    while (!scm_is_null (tax_types))
+    {
+        SCM type_scm;
+        gchar *str;
+
+        type_scm  = SCM_CAR (tax_types);
+        tax_types = SCM_CDR (tax_types);
+        str = scm_is_symbol(type_scm) ? SCM_SYMBOL_CHARS(type_scm) : "";
+        if (safe_strcmp (ti_dialog->tax_type, str) == 0)
+                tax_type_valid = TRUE;
+    }
+    if (!tax_type_valid)
+    {
+        destroy_txf_infos (infos);
+        return NULL;
     }
 
     switch (acct_category)