gnucash unstable: Bug 793947 - Impossible to render printable invoice

[John Ralls]

Updated	 via  https://github.com/Gnucash/gnucash/commit/93f89207 (commit)
	from  https://github.com/Gnucash/gnucash/commit/7da9a3ba (commit)



commit 93f892072ca52fed5d140566693d4d0f1f001e68
Author: John Ralls <jralls at ceridwen.us>
Date:   Wed Feb 28 19:45:49 2018 -0700

    Bug 793947 - Impossible to render printable invoice
    
    gncInvoiceGetID returs a char*, so ~a is indeed the correct code.
    Odd that the scheme sprintf used %d to format it.

diff --git a/gnucash/report/business-reports/easy-invoice.scm b/gnucash/report/business-reports/easy-invoice.scm
index 4e4a68c..8ebf791 100644
--- a/gnucash/report/business-reports/easy-invoice.scm
+++ b/gnucash/report/business-reports/easy-invoice.scm
@@ -713,7 +713,7 @@
 	       (begin
 	        (set! credit-note? #t)
 	        (set! default-title (_ "Credit Note"))))))
-	  (set! title (format #f (_"~a #~d") (title-string default-title custom-title)
+	  (set! title (format #f (_"~a #~a") (title-string default-title custom-title)
 			       (gncInvoiceGetID invoice)))))
 
 ;    (gnc:html-document-set-title! document title)
@@ -734,7 +734,7 @@
         (add-html! document "<td align='left'>")
         (add-html! document "<b><u>")
 	(add-html! document title)
-;;	(add-html! document (format #f (_ "Invoice #~d")
+;;	(add-html! document (format #f (_ "Invoice #~a")
 ;;				     (gncInvoiceGetID invoice)))
         (add-html! document "</u></b></td>")
         (add-html! document "<td align='right'>")
diff --git a/gnucash/report/business-reports/invoice.scm b/gnucash/report/business-reports/invoice.scm
index 96236ae..8b5c503 100644
--- a/gnucash/report/business-reports/invoice.scm
+++ b/gnucash/report/business-reports/invoice.scm
@@ -686,7 +686,7 @@
 
     (set! title (title-string default-title custom-title))))
 
-    (gnc:html-document-set-title! document (format #f (_"~a #~d") title
+    (gnc:html-document-set-title! document (format #f (_"~a #~a") title
 						    (gncInvoiceGetID invoice)))
 
     (if (not (null? invoice))



Summary of changes:
 gnucash/report/business-reports/easy-invoice.scm | 4 ++--
 gnucash/report/business-reports/invoice.scm      | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)