23c23
< 
---
> ;; Added a user changeable title and tax name, total ex tax and friendlier no invoice prompt Sept 2007. Bryan Cebuliak <bryan.cebuliak at gmail>  
106c106
< (define (make-heading-list column-vector)
---
> (define (make-heading-list column-vector taxname)
124c124
< 	(addto! heading-list (_ "Tax Amount")))
---
> 	(addto! heading-list (_ taxname)))
126c126
< 	(addto! heading-list (_ "Total")))
---
> 	(addto! heading-list (string-append (_ "Total ex ") (_ taxname))))
269c269
<     "k" (N_ "Display the entry's discount") #t))
---
>     "k" (N_ "Display the entry's discount") #f))
274c274
<     "l" (N_ "Display the entry's taxable status") #t))
---
>     "l" (N_ "Display the entry's taxable status") #f))
279c279
<     "m" (N_ "Display each entry's total total tax") #f))
---
>     "m" (N_ "Display each entry's total total tax") #t))
321a322,332
>    (gnc:make-string-option
>     (N_ "Text") (N_ "Invoice Title")
>     "td" (N_ "Enter invoice title here") (N_ "Invoice")))
> 
>   (gnc:register-inv-option
>    (gnc:make-string-option
>     (N_ "Text") (N_ "Tax Name")
>     "te" (N_ "Enter tax name: Tax, GST, VAT, Sales Tax, etc, here.") (N_ "Tax")))
> 
> 
>   (gnc:register-inv-option
323c334
<     (N_ "Display") (N_ "Extra Notes")
---
>     (N_ "Text") (N_ "Extra Notes")
329c340
<     (N_ "Display") (N_ "Today Date Format")
---
>     (N_ "Text") (N_ "Today Date Format")
346c357,358
< 	(currency (gncInvoiceGetCurrency invoice)))
---
> 	(currency (gncInvoiceGetCurrency invoice))
>         (taxname (opt-val "Text" "Tax Name")))
437c449
< 				  "grand-total" (_ "Tax")))
---
> 				  "grand-total" taxname))
510c522
<        (make-heading-list used-columns))
---
>        (make-heading-list used-columns taxname))
631c643
< 	 (title (_ "Invoice"))
---
> 	 (title (opt-val "Text" "Invoice Title"))
669c681
< 	   (make-myname-table book (opt-val "Display" "Today Date Format")))
---
> 	   (make-myname-table book (opt-val "Text" "Today Date Format")))
739c751
< 	    (string-expand (opt-val "Display" "Extra Notes") #\newline "<br>")
---
> 	    (string-expand (opt-val "Text" "Extra Notes") #\newline "<br>")
746c758
< 	  (_ "No Valid Invoice Selected"))))
---
> 	  (_ "Select an Invoice with Options > General > Select"))))