[invoice] add toggle for invoice title

Gnucash · Aug 7, 2018 · 900cd36 · 900cd36
1 parent f1ff608
commit 900cd36
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/gnucash/report/business-reports/invoice.scm b/gnucash/report/business-reports/invoice.scm
@@ -330,6 +330,11 @@ for styling the invoice. Please see the exported report for the CSS class names.
   (gnc:register-inv-option (gnc:make-internal-option "Display" "My Company" #f))
   (gnc:register-inv-option (gnc:make-internal-option "Display" "My Company ID" #f))
 
+  (gnc:register-inv-option
+   (gnc:make-simple-boolean-option
+    (N_ "Display") (N_ "Title")
+    "a" (N_ "Display invoice title and invoice ID?") #t))
+
   (gnc:register-inv-option
    (gnc:make-simple-boolean-option
     (N_ "Display") (N_ "Due Date")
@@ -834,10 +839,11 @@ for styling the invoice. Please see the exported report for the CSS class names.
 
           (let ((main-table (gnc:make-html-table)))
 
-            (gnc:html-table-append-row! main-table
-                                        (gnc:make-html-table-cell/size
-                                         1 2 (gnc:make-html-div/markup
-                                              "invoice-title" invoice-title)))
+            (if (opt-val "Display" "Title")
+                (gnc:html-table-append-row! main-table
+                                            (gnc:make-html-table-cell/size
+                                             1 2 (gnc:make-html-div/markup
+                                                  "invoice-title" invoice-title))))
 
             (gnc:html-table-append-row! main-table
                                         (list (layout-lookup "Row 1 Left")