r18274 - gnucash/trunk/src - Fix minor i18n issues.

[Christian Stimming]

Author: cstim
Date: 2009-08-23 16:36:13 -0400 (Sun, 23 Aug 2009)
New Revision: 18274
Trac: http://svn.gnucash.org/trac/changeset/18274

Modified:
   gnucash/trunk/src/gnome/glade/price.glade
   gnucash/trunk/src/report/report-system/eguile-gnc.scm
Log:
Fix minor i18n issues.

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

Modified: gnucash/trunk/src/gnome/glade/price.glade
===================================================================
--- gnucash/trunk/src/gnome/glade/price.glade	2009-08-23 00:54:23 UTC (rev 18273)
+++ gnucash/trunk/src/gnome/glade/price.glade	2009-08-23 20:36:13 UTC (rev 18274)
@@ -504,7 +504,7 @@
                 <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>

Modified: gnucash/trunk/src/report/report-system/eguile-gnc.scm
===================================================================
--- gnucash/trunk/src/report/report-system/eguile-gnc.scm	2009-08-23 00:54:23 UTC (rev 18273)
+++ gnucash/trunk/src/report/report-system/eguile-gnc.scm	2009-08-23 20:36:13 UTC (rev 18274)
@@ -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)))))