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

2001-04-26 Christian Stimming <stimming@tuhh.de>

Browse Source 
* src/scm/report/*.scm: adapt to changed gnc:make-report-anchor.

	* src/scm/html-utilities.scm (gnc:make-report-anchor):
	gnc:report-add-child-by-id! is now used inside here. API changed.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4051 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-04-26 07:51:41 +00:00
parent a77c650f68
commit b811b0583d
6 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@ -1,3 +1,10 @@
2001-04-26 Christian Stimming <stimming@tuhh.de>
* src/scm/report/*.scm: adapt to changed gnc:make-report-anchor.
* src/scm/html-utilities.scm (gnc:make-report-anchor):
gnc:report-add-child-by-id! is now used inside here. API changed.
2001-04-25 Dave Peticolas <dave@krondo.com>
* src/scm/commodity-utilities.scm: fix fixme

13
src/scm/html-utilities.scm
View File

@ -57,9 +57,10 @@
;; 'src-options', and additionally this function sets all options
;; according to 'optionlist'. Each element of optionlist is a list of
;; section, name, and value of the function.
(define (gnc:make-report-anchor reportname
src-options optionlist)
(let ((options (gnc:make-report-options reportname)))
(define (gnc:make-report-anchor reportname src-report
optionlist)
(let ((src-options (gnc:report-options src-report))
(options (gnc:make-report-options reportname)))
(if options
(begin
(gnc:options-copy-values src-options options)
@ -71,8 +72,10 @@
(warn "gnc:make-report-anchor:" reportname
" No such option: " (car l) (cadr l)))))
optionlist)
(gnc:report-anchor-text
(gnc:make-report reportname options)))
(let ((id (gnc:make-report reportname options)))
(gnc:report-add-child-by-id! src-report id)
(gnc:report-set-parent! (gnc:find-report id) src-report)
(gnc:report-anchor-text id)))
(warn "gnc:make-report-anchor: No such report: " reportname))))

4
src/scm/report/account-piecharts.scm
View File

@ -303,8 +303,8 @@ balance at a given time"))
;; immediate subaccounts of this account
;; (and including this account).
(gnc:make-report-anchor
reportname
(gnc:report-options report-obj)
reportname
report-obj
(list
(list gnc:pagename-accounts optname-accounts
(cons acct subaccts))

2
src/scm/report/category-barchart.scm
View File

@ -402,7 +402,7 @@ developing over time"))
;; (and including this account).
(gnc:make-report-anchor
reportname
(gnc:report-options report-obj)
report-obj
(list
(list gnc:pagename-accounts optname-accounts
(cons acct subaccts))

4
src/scm/report/income-expense-graph.scm
View File

@ -198,7 +198,7 @@
(list
(gnc:make-report-anchor
"Income Over Time"
(gnc:report-options report-obj)
report-obj
(list
(list gnc:pagename-display
"Use Stacked Bars" #t)
@ -207,7 +207,7 @@
(_ "Income Chart"))))
(gnc:make-report-anchor
"Expense Over Time"
(gnc:report-options report-obj)
report-obj
(list
(list gnc:pagename-display
"Use Stacked Bars" #t)

4
src/scm/report/net-worth-timeseries.scm
View File

@ -215,7 +215,7 @@
(list
(gnc:make-report-anchor
"Assets Over Time"
(gnc:report-options report-obj)
report-obj
(list
(list gnc:pagename-display
"Use Stacked Bars" #t)
@ -224,7 +224,7 @@
(_ "Asset Chart"))))
(gnc:make-report-anchor
"Liabilities/Equity Over Time"
(gnc:report-options report-obj)
report-obj
(list
(list gnc:pagename-display
"Use Stacked Bars" #t)