mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
set the document title properly AFTER type-str is set.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@13224 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
@@ -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@employees.org>
|
||||
|
||||
* src/gnome/glade/acctperiod.glade:
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user