From 4a8ceb4e4446b96581473b733c5cb0655c3f554f Mon Sep 17 00:00:00 2001
From: Christian Stimming <stimming@tuhh.de>
Date: Sun, 23 Aug 2009 20:36:13 +0000
Subject: [PATCH] Fix minor i18n issues.

 * Don't translate gtk stock button labels
 * Don't split sentences when translating
 * Exclude formatting from translatable messages when possible

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18274 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/gnome/glade/price.glade             | 2 +-
 src/report/report-system/eguile-gnc.scm | 6 ++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/gnome/glade/price.glade b/src/gnome/glade/price.glade
index 478c49334c..cc0e58aa57 100644
--- a/src/gnome/glade/price.glade
+++ b/src/gnome/glade/price.glade
@@ -504,7 +504,7 @@ Unknown</property>
                 <property name="visible">True</property>
                 <property name="can_focus">True</property>
                 <property name="receives_default">True</property>
-                <property name="label" translatable="yes">gtk-apply</property>
+                <property name="label" translatable="no">gtk-apply</property>
                 <property name="use_stock">True</property>
                 <property name="response_id">-10</property>
               </widget>
diff --git a/src/report/report-system/eguile-gnc.scm b/src/report/report-system/eguile-gnc.scm
index d571844e7b..4bc7f87b31 100644
--- a/src/report/report-system/eguile-gnc.scm
+++ b/src/report/report-system/eguile-gnc.scm
@@ -184,7 +184,9 @@
              (set! s-expression (read)))))
 
   (define (error-handler key subr message args . rest)
-    (display (_ "<p>An error occurred when processing the template:<br>"))
+    (display "<p>")
+    (display (_ "An error occurred when processing the template:"))
+    (display "<br>")
     (display
       (escape-html
         (with-output-to-string
@@ -200,7 +202,7 @@
 ;; Process a template file and return the result as a string
 (define (eguile-file-to-string infile environment)
   (if (not (access? infile R_OK))  
-    (string-append (_ "Template file ") infile (_ " can not be read"))
+    (sprintf #f (_ "Template file \"%s\" can not be read") infile)
     (let ((script (with-input-from-file
                     infile
                     (lambda () (with-output-to-string template->script)))))