IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Bug #345980: Fix changed stylesheet option that isn't saved in saved reports

Browse Source 
Patch by andi5.
BP

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17728 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2008-11-26 22:16:20 +00:00
parent 413a1a9280
commit 593f3fd03b
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/report/report-system/report.scm
View File

@ -252,21 +252,20 @@
" " (_ "Stylesheet"))))
(gnc:get-html-style-sheets)))))
(if (procedure? generator)
(let ((options (gnc:backtrace-if-exception generator)))
(if (not options)
(begin
(gnc:warn "BUG DETECTED: Scheme exception raised in "
"report options generator procedure named "
(procedure-name generator))
(set! options (gnc:new-options))))
(gnc:register-option options stylesheet)
(gnc:register-option options namer)
options)
(let ((options (gnc:new-options)))
(gnc:register-option options stylesheet)
(gnc:register-option options namer)
options))))
(let ((options
(if (procedure? generator)
(or (gnc:backtrace-if-exception generator)
(begin
(gnc:warn "BUG DETECTED: Scheme exception raised in "
"report options generator procedure named "
(procedure-name generator))
(gnc:new-options)))
(gnc:new-options))))
(or (gnc:lookup-option options gnc:pagename-general gnc:optname-reportname)
(gnc:register-option options namer))
(or (gnc:lookup-option options gnc:pagename-general (N_ "Stylesheet"))
(gnc:register-option options stylesheet))
options)))
;; A <report> represents an instantiation of a particular report type.
(define <report>