From 5e1c8e91321ad07ffc6c2e45823315d44773434c Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Thu, 10 May 2018 22:52:43 +0800 Subject: [PATCH] business-reports/*.scm: close tags to make valid XHTML This will be important for testing. --- .../business-reports/customer-summary.scm | 6 +++--- .../report/business-reports/easy-invoice.scm | 12 ++++++------ .../report/business-reports/fancy-invoice.scm | 4 ++-- gnucash/report/business-reports/invoice.scm | 18 +++++++++--------- .../report/business-reports/owner-report.scm | 6 +++--- gnucash/report/business-reports/receipt.scm | 2 +- gnucash/report/business-reports/taxinvoice.scm | 2 +- 7 files changed, 25 insertions(+), 25 deletions(-) diff --git a/gnucash/report/business-reports/customer-summary.scm b/gnucash/report/business-reports/customer-summary.scm index c8bc60b91a..b0384befe7 100644 --- a/gnucash/report/business-reports/customer-summary.scm +++ b/gnucash/report/business-reports/customer-summary.scm @@ -580,10 +580,10 @@ (gnc:html-table-append-row! table (list - (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "
"))) + (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "
"))) (gnc:html-table-append-row! table - (list "
")) + (list "
")) (gnc:html-table-set-last-row-style! table "td" 'attribute (list "valign" "top")) @@ -625,7 +625,7 @@ (gnc:html-table-append-row! table (list (if name name ""))) (gnc:html-table-append-row! table (list (string-expand (if addy addy "") - #\newline "
"))) + #\newline "
"))) (gnc:html-table-append-row! table (list (strftime date-format diff --git a/gnucash/report/business-reports/easy-invoice.scm b/gnucash/report/business-reports/easy-invoice.scm index 6a80711ff4..985b6eb562 100644 --- a/gnucash/report/business-reports/easy-invoice.scm +++ b/gnucash/report/business-reports/easy-invoice.scm @@ -564,10 +564,10 @@ (gnc:html-table-append-row! table (list - (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "
"))) + (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "
"))) (gnc:html-table-append-row! table - (list "
")) + (list "
")) (for-each (lambda (order) (let* ((reference (gncOrderGetReference order))) @@ -780,7 +780,7 @@ (gnc:make-html-text (string-append (_ "Billing ID") ": " - (string-expand billing-id #\newline "
")))) + (string-expand billing-id #\newline "
")))) (make-break! document))))) (if (opt-val "Display" "Billing Terms") @@ -792,7 +792,7 @@ (gnc:make-html-text (string-append (_ "Terms") ": " - (string-expand terms #\newline "
"))))))) + (string-expand terms #\newline "
"))))))) (make-break! document) @@ -814,14 +814,14 @@ (gnc:html-document-add-object! document (gnc:make-html-text - (string-expand notes #\newline "
")))) + (string-expand notes #\newline "
")))) (make-break! document) (make-break! document))) (gnc:html-document-add-object! document (gnc:make-html-text - (string-expand (opt-val "Text" "Extra Notes") #\newline "
") + (string-expand (opt-val "Text" "Extra Notes") #\newline "
") )) ; close the framing table diff --git a/gnucash/report/business-reports/fancy-invoice.scm b/gnucash/report/business-reports/fancy-invoice.scm index a7c7809b11..77c2b4ec8b 100644 --- a/gnucash/report/business-reports/fancy-invoice.scm +++ b/gnucash/report/business-reports/fancy-invoice.scm @@ -622,7 +622,7 @@ (gnc:html-table-cell-set-style! name-cell "td" 'font-size "+2") - (gnc:html-table-append-row! table (list name-cell "" "")) ;;Bert: had a newline and a "
" + (gnc:html-table-append-row! table (list name-cell "" "")) ;;Bert: had a newline and a "
" (gnc:html-table-append-row! table (list @@ -927,7 +927,7 @@ (gnc:html-document-add-object! document (gnc:make-html-text - (string-expand notes #\newline "
"))))) + (string-expand notes #\newline "
"))))) (make-break! document) diff --git a/gnucash/report/business-reports/invoice.scm b/gnucash/report/business-reports/invoice.scm index 447d9d15ee..3434c9518e 100644 --- a/gnucash/report/business-reports/invoice.scm +++ b/gnucash/report/business-reports/invoice.scm @@ -541,10 +541,10 @@ (gnc:html-table-append-row! table (list - (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "
"))) + (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "
"))) (gnc:html-table-append-row! table - (list "
")) + (list "
")) (for-each (lambda (order) (let* ((reference (gncOrderGetReference order))) @@ -595,7 +595,7 @@ (gnc:html-table-append-row! table (list (if name name ""))) (gnc:html-table-append-row! table (list (string-expand (if addy addy "") - #\newline "
"))) + #\newline "
"))) (gnc:html-table-append-row! table (list (strftime date-format @@ -718,7 +718,7 @@ (gnc:make-html-text (string-append (_ "Reference") ": " - (string-expand billing-id #\newline "
")))) + (string-expand billing-id #\newline "
")))) (make-break! document))))) (if (opt-val "Display" "Billing Terms") @@ -731,7 +731,7 @@ (gnc:make-html-text (string-append (_ "Terms") ": " - (string-expand terms #\newline "
")))) + (string-expand terms #\newline "
")))) (make-break! document)) ))) @@ -746,14 +746,14 @@ (gnc:make-html-text (string-append (_ "Job number") ": " - (string-expand jobnumber #\newline "
")))) + (string-expand jobnumber #\newline "
")))) (make-break! document) (gnc:html-document-add-object! document (gnc:make-html-text (string-append (_ "Job name") ": " - (string-expand jobname #\newline "
")))) + (string-expand jobname #\newline "
")))) (make-break! document) (make-break! document) ))) @@ -768,7 +768,7 @@ (gnc:html-document-add-object! document (gnc:make-html-text - (string-expand notes #\newline "
"))))) + (string-expand notes #\newline "
"))))) (make-break! document) @@ -776,7 +776,7 @@ document (gnc:make-html-text (gnc:html-markup-br) - (string-expand (opt-val "Display" "Extra Notes") #\newline "
") + (string-expand (opt-val "Display" "Extra Notes") #\newline "
") (gnc:html-markup-br)))) ; else diff --git a/gnucash/report/business-reports/owner-report.scm b/gnucash/report/business-reports/owner-report.scm index 20d8e2873d..787c998aba 100644 --- a/gnucash/report/business-reports/owner-report.scm +++ b/gnucash/report/business-reports/owner-report.scm @@ -678,10 +678,10 @@ (gnc:html-table-append-row! table (list - (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "
"))) + (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "
"))) (gnc:html-table-append-row! table - (list "
")) + (list "
")) (gnc:html-table-set-last-row-style! table "td" 'attribute (list "valign" "top")) @@ -721,7 +721,7 @@ (gnc:html-table-append-row! table (list (if name name ""))) (gnc:html-table-append-row! table (list (string-expand (if addy addy "") - #\newline "
"))) + #\newline "
"))) (gnc:html-table-append-row! table (list (strftime date-format diff --git a/gnucash/report/business-reports/receipt.scm b/gnucash/report/business-reports/receipt.scm index a782783df6..6ee7250e4a 100644 --- a/gnucash/report/business-reports/receipt.scm +++ b/gnucash/report/business-reports/receipt.scm @@ -191,7 +191,7 @@ notespage optname-extra-notes "a" (N_ "Notes added at end of invoice -- may contain HTML markup") "")) - ;(N_ "(Development version -- don't rely on the numbers on this report without double-checking them.
Change the 'Extra Notes' option to get rid of this message)"))) + ;(N_ "(Development version -- don't rely on the numbers on this report without double-checking them.
Change the 'Extra Notes' option to get rid of this message)"))) (gnc:options-set-default-section report-options generalpage) diff --git a/gnucash/report/business-reports/taxinvoice.scm b/gnucash/report/business-reports/taxinvoice.scm index d6919c7d07..054b18ff49 100644 --- a/gnucash/report/business-reports/taxinvoice.scm +++ b/gnucash/report/business-reports/taxinvoice.scm @@ -237,7 +237,7 @@ notespage optname-extra-notes "a" (_ "Notes added at end of invoice -- may contain HTML markup.") (_ "Thank you for your patronage!"))) - ;(N_ "(Development version -- don't rely on the numbers on this report without double-checking them.
Change the 'Extra Notes' option to get rid of this message)"))) + ;(N_ "(Development version -- don't rely on the numbers on this report without double-checking them.
Change the 'Extra Notes' option to get rid of this message)"))) (add-option (gnc:make-text-option notespage optname-extra-css "b" (N_ "Embedded CSS.") "h1.coyname { text-align: left; }"))