mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
2001-04-22 Christian Stimming <stimming@tuhh.de>
* src/scm/report/income-expense-graph.scm: Add links to new reports on bars. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4011 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
55c3c262c3
commit
95dc7c7c3b
@ -1,3 +1,8 @@
|
||||
2001-04-22 Christian Stimming <stimming@tuhh.de>
|
||||
|
||||
* src/scm/report/income-expense-graph.scm: Add links to new
|
||||
reports on bars.
|
||||
|
||||
2001-04-22 Dave Peticolas <dave@krondo.com>
|
||||
|
||||
* src/scm/report/transaction-report.scm: use new api for
|
||||
|
@ -193,6 +193,33 @@
|
||||
(if show-net?
|
||||
'("green") '())))
|
||||
|
||||
(if show-incexp?
|
||||
(let ((set-options (list '()))
|
||||
(urls
|
||||
(list
|
||||
(gnc:make-report-anchor
|
||||
"Income Over Time"
|
||||
(gnc:report-options report-obj)
|
||||
(list
|
||||
(list gnc:pagename-display
|
||||
"Use Stacked Bars" #t)
|
||||
(list gnc:pagename-general
|
||||
gnc:optname-reportname
|
||||
(_ "Income Chart"))))
|
||||
(gnc:make-report-anchor
|
||||
"Expense Over Time"
|
||||
(gnc:report-options report-obj)
|
||||
(list
|
||||
(list gnc:pagename-display
|
||||
"Use Stacked Bars" #t)
|
||||
(list gnc:pagename-general
|
||||
gnc:optname-reportname
|
||||
(_ "Expense Chart")))))))
|
||||
(gnc:html-barchart-set-button-1-bar-urls!
|
||||
chart urls)
|
||||
(gnc:html-barchart-set-button-1-legend-urls!
|
||||
chart urls)))
|
||||
|
||||
(gnc:html-document-add-object! document chart)
|
||||
|
||||
; (gnc:html-document-add-object!
|
||||
|
Loading…
Reference in New Issue
Block a user