[Gnucash-changes] r13224 - gnucash/trunk - set the document title properly AFTER type-str is set.

Derek Atkins warlord at cvs.gnucash.org
Sat Feb 11 17:50:29 EST 2006


Author: warlord
Date: 2006-02-11 17:50:28 -0500 (Sat, 11 Feb 2006)
New Revision: 13224
Trac: http://svn.gnucash.org/trac/changeset/13224

Modified:
   gnucash/trunk/ChangeLog
   gnucash/trunk/src/business/business-reports/owner-report.scm
Log:
set the document title properly AFTER type-str is set.



Modified: gnucash/trunk/ChangeLog
===================================================================
--- gnucash/trunk/ChangeLog	2006-02-11 21:07:32 UTC (rev 13223)
+++ gnucash/trunk/ChangeLog	2006-02-11 22:50:28 UTC (rev 13224)
@@ -3,6 +3,9 @@
 	* src/report/report-gnome/gnc-plugin-page-report.c:
 	  don't need to scm_gc_{un,}protect_object on SCM_BOOL_F.
 
+	* src/business/business-reports/owner-report.scm:
+	  set the document title properly AFTER type-str is set.
+
 2006-02-11  David Hampton  <hampton at employees.org>
 
 	* src/gnome/glade/acctperiod.glade:

Modified: gnucash/trunk/src/business/business-reports/owner-report.scm
===================================================================
--- gnucash/trunk/src/business/business-reports/owner-report.scm	2006-02-11 21:07:32 UTC (rev 13223)
+++ gnucash/trunk/src/business/business-reports/owner-report.scm	2006-02-11 22:50:28 UTC (rev 13224)
@@ -540,7 +540,6 @@
 	 (end-date (gnc:timepair-end-day-time 
 		       (gnc:date-option-absolute-time
 			(opt-val gnc:pagename-general (N_ "To")))))
-	 (title (string-append (_ type-str) " " (_ "Report")))
 	 (book (gnc:get-current-book)) ;XXX Grab this from elsewhere
 	 (owner-type (opt-val "__reg" "owner-type"))
 	 (type-str ""))
@@ -553,7 +552,8 @@
       ((gnc-owner-employee)
        (set! type-str (N_ "Employee"))))
 
-    (gnc:html-document-set-title! document title)
+    (gnc:html-document-set-title!
+     document (string-append (_ type-str) " " (_ "Report")))
 
     (if (gnc:owner-is-valid? owner)
 	(begin



More information about the gnucash-changes mailing list