IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

business-reports/*.scm: close tags to make valid XHTML

Browse Source 
This will be important for testing.
This commit is contained in:
Christopher Lam 2018-05-10 22:52:43 +08:00
parent 9eedea71ea
commit 5e1c8e9132
7 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnucash/report/business-reports/customer-summary.scm
View File

@ -580,10 +580,10 @@
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list (list
(string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br>"))) (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br/>")))
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list "<br>")) (list "<br/>"))
(gnc:html-table-set-last-row-style! (gnc:html-table-set-last-row-style!
table "td" table "td"
'attribute (list "valign" "top")) '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 (if name name "")))
(gnc:html-table-append-row! table (list (string-expand (gnc:html-table-append-row! table (list (string-expand
(if addy addy "") (if addy addy "")
#\newline "<br>"))) #\newline "<br/>")))
(gnc:html-table-append-row! table (list (gnc:html-table-append-row! table (list
(strftime (strftime
date-format date-format

12
gnucash/report/business-reports/easy-invoice.scm
View File

@ -564,10 +564,10 @@
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list (list
(string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br>"))) (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br/>")))
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list "<br>")) (list "<br/>"))
(for-each (for-each
(lambda (order) (lambda (order)
(let* ((reference (gncOrderGetReference order))) (let* ((reference (gncOrderGetReference order)))
@ -780,7 +780,7 @@
(gnc:make-html-text (gnc:make-html-text
(string-append (string-append
(_ "Billing ID") ":&nbsp;" (_ "Billing ID") ":&nbsp;"
(string-expand billing-id #\newline "<br>")))) (string-expand billing-id #\newline "<br/>"))))
(make-break! document))))) (make-break! document)))))
(if (opt-val "Display" "Billing Terms") (if (opt-val "Display" "Billing Terms")
@ -792,7 +792,7 @@
(gnc:make-html-text (gnc:make-html-text
(string-append (string-append
(_ "Terms") ":&nbsp;" (_ "Terms") ":&nbsp;"
(string-expand terms #\newline "<br>"))))))) (string-expand terms #\newline "<br/>")))))))
(make-break! document) (make-break! document)
@ -814,14 +814,14 @@
(gnc:html-document-add-object! (gnc:html-document-add-object!
document document
(gnc:make-html-text (gnc:make-html-text
(string-expand notes #\newline "<br>")))) (string-expand notes #\newline "<br/>"))))
(make-break! document) (make-break! document)
(make-break! document))) (make-break! document)))
(gnc:html-document-add-object! (gnc:html-document-add-object!
document document
(gnc:make-html-text (gnc:make-html-text
(string-expand (opt-val "Text" "Extra Notes") #\newline "<br>") (string-expand (opt-val "Text" "Extra Notes") #\newline "<br/>")
)) ))
; close the framing table ; close the framing table

4
gnucash/report/business-reports/fancy-invoice.scm
View File

@ -622,7 +622,7 @@
(gnc:html-table-cell-set-style! (gnc:html-table-cell-set-style!
name-cell "td" name-cell "td"
'font-size "+2") 'font-size "+2")
(gnc:html-table-append-row! table (list name-cell "" "")) ;;Bert: had a newline and a "<br>" (gnc:html-table-append-row! table (list name-cell "" "")) ;;Bert: had a newline and a "<br/>"
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list (list
@ -927,7 +927,7 @@
(gnc:html-document-add-object! (gnc:html-document-add-object!
document document
(gnc:make-html-text (gnc:make-html-text
(string-expand notes #\newline "<br>"))))) (string-expand notes #\newline "<br/>")))))
(make-break! document) (make-break! document)

18
gnucash/report/business-reports/invoice.scm
View File

@ -541,10 +541,10 @@
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list (list
(string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br>"))) (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br/>")))
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list "<br>")) (list "<br/>"))
(for-each (for-each
(lambda (order) (lambda (order)
(let* ((reference (gncOrderGetReference 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 (if name name "")))
(gnc:html-table-append-row! table (list (string-expand (gnc:html-table-append-row! table (list (string-expand
(if addy addy "") (if addy addy "")
#\newline "<br>"))) #\newline "<br/>")))
(gnc:html-table-append-row! table (list (gnc:html-table-append-row! table (list
(strftime (strftime
date-format date-format
@ -718,7 +718,7 @@
(gnc:make-html-text (gnc:make-html-text
(string-append (string-append
(_ "Reference") ":&nbsp;" (_ "Reference") ":&nbsp;"
(string-expand billing-id #\newline "<br>")))) (string-expand billing-id #\newline "<br/>"))))
(make-break! document))))) (make-break! document)))))
(if (opt-val "Display" "Billing Terms") (if (opt-val "Display" "Billing Terms")
@ -731,7 +731,7 @@
(gnc:make-html-text (gnc:make-html-text
(string-append (string-append
(_ "Terms") ":&nbsp;" (_ "Terms") ":&nbsp;"
(string-expand terms #\newline "<br>")))) (string-expand terms #\newline "<br/>"))))
(make-break! document)) (make-break! document))
))) )))
@ -746,14 +746,14 @@
(gnc:make-html-text (gnc:make-html-text
(string-append (string-append
(_ "Job number") ":&nbsp;" (_ "Job number") ":&nbsp;"
(string-expand jobnumber #\newline "<br>")))) (string-expand jobnumber #\newline "<br/>"))))
(make-break! document) (make-break! document)
(gnc:html-document-add-object! (gnc:html-document-add-object!
document document
(gnc:make-html-text (gnc:make-html-text
(string-append (string-append
(_ "Job name") ":&nbsp;" (_ "Job name") ":&nbsp;"
(string-expand jobname #\newline "<br>")))) (string-expand jobname #\newline "<br/>"))))
(make-break! document) (make-break! document)
(make-break! document) (make-break! document)
))) )))
@ -768,7 +768,7 @@
(gnc:html-document-add-object! (gnc:html-document-add-object!
document document
(gnc:make-html-text (gnc:make-html-text
(string-expand notes #\newline "<br>"))))) (string-expand notes #\newline "<br/>")))))
(make-break! document) (make-break! document)
@ -776,7 +776,7 @@
document document
(gnc:make-html-text (gnc:make-html-text
(gnc:html-markup-br) (gnc:html-markup-br)
(string-expand (opt-val "Display" "Extra Notes") #\newline "<br>") (string-expand (opt-val "Display" "Extra Notes") #\newline "<br/>")
(gnc:html-markup-br)))) (gnc:html-markup-br))))
; else ; else

6
gnucash/report/business-reports/owner-report.scm
View File

@ -678,10 +678,10 @@
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list (list
(string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br>"))) (string-expand (gnc:owner-get-name-and-address-dep owner) #\newline "<br/>")))
(gnc:html-table-append-row! (gnc:html-table-append-row!
table table
(list "<br>")) (list "<br/>"))
(gnc:html-table-set-last-row-style! (gnc:html-table-set-last-row-style!
table "td" table "td"
'attribute (list "valign" "top")) '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 (if name name "")))
(gnc:html-table-append-row! table (list (string-expand (gnc:html-table-append-row! table (list (string-expand
(if addy addy "") (if addy addy "")
#\newline "<br>"))) #\newline "<br/>")))
(gnc:html-table-append-row! table (list (gnc:html-table-append-row! table (list
(strftime (strftime
date-format date-format

2
gnucash/report/business-reports/receipt.scm
View File

@ -191,7 +191,7 @@
notespage optname-extra-notes "a" notespage optname-extra-notes "a"
(N_ "Notes added at end of invoice -- may contain HTML markup") (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.<br>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.<br/>Change the 'Extra Notes' option to get rid of this message)")))
(gnc:options-set-default-section (gnc:options-set-default-section
report-options generalpage) report-options generalpage)

2
gnucash/report/business-reports/taxinvoice.scm
View File

@ -237,7 +237,7 @@
notespage optname-extra-notes "a" notespage optname-extra-notes "a"
(_ "Notes added at end of invoice -- may contain HTML markup.") (_ "Notes added at end of invoice -- may contain HTML markup.")
(_ "Thank you for your patronage!"))) (_ "Thank you for your patronage!")))
;(N_ "(Development version -- don't rely on the numbers on this report without double-checking them.<br>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.<br/>Change the 'Extra Notes' option to get rid of this message)")))
(add-option (gnc:make-text-option notespage optname-extra-css "b" (add-option (gnc:make-text-option notespage optname-extra-css "b"
(N_ "Embedded CSS.") "h1.coyname { text-align: left; }")) (N_ "Embedded CSS.") "h1.coyname { text-align: left; }"))