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

ChangeLog

@@ -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

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)