From 95dc7c7c3b3e7b3db845981ae0fba74bef1b88ab Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Sun, 22 Apr 2001 21:13:12 +0000 Subject: [PATCH] 2001-04-22 Christian Stimming * 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 --- ChangeLog | 5 +++++ src/scm/report/income-expense-graph.scm | 27 +++++++++++++++++++++++++ 2 files changed, 32 insertions(+) diff --git a/ChangeLog b/ChangeLog index 59781abb75..189c70bff7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-04-22 Christian Stimming + + * src/scm/report/income-expense-graph.scm: Add links to new + reports on bars. + 2001-04-22 Dave Peticolas * src/scm/report/transaction-report.scm: use new api for diff --git a/src/scm/report/income-expense-graph.scm b/src/scm/report/income-expense-graph.scm index b7d54c2cc4..5f13795c88 100644 --- a/src/scm/report/income-expense-graph.scm +++ b/src/scm/report/income-expense-graph.scm @@ -192,6 +192,33 @@ '("blue" "red") '()) (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)