From 900cd3666786ace6255fed03b46d9a02b598d28f Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sun, 10 Jun 2018 11:05:40 +0800 Subject: [PATCH] [invoice] add toggle for invoice title --- gnucash/report/business-reports/invoice.scm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/gnucash/report/business-reports/invoice.scm b/gnucash/report/business-reports/invoice.scm index f26b8b01c4..5a511612b3 100644 --- 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")