2002-01-06 Christian Stimming <stimming@tuhh.de>

* src/report/report-system/html-utilities.scm,
	src/report/standard-reports/*: Added option hyperlink in report
	warnings.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6522 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2002-01-06 22:24:03 +00:00
parent f9e8a3ada2
commit 49bc361cd4
11 changed files with 76 additions and 42 deletions

View File

@ -1,5 +1,9 @@
2002-01-06 Christian Stimming <stimming@tuhh.de>
* src/report/report-system/html-utilities.scm,
src/report/standard-reports/*: Added option hyperlink in report
warnings.
* doc/sgml/*/xacc-euro.sgml: Fixed DEM rate as pointed out by
Gregor Hoffleit <gregor@hoffleit.de>.

View File

@ -679,7 +679,8 @@
table))
(define (gnc:html-make-no-account-warning report-title-string)
(define (gnc:html-make-no-account-warning
report-title-string report-id)
(let ((p (gnc:make-html-text)))
(gnc:html-text-append!
p
@ -689,9 +690,17 @@
(gnc:html-markup-h2 (_ "No accounts selected"))
(gnc:html-markup-p
(_ "This report requires accounts to be selected.")))
(if report-id
(gnc:html-text-append!
p
(gnc:html-markup-p
(gnc:html-markup-anchor
(sprintf #f "gnc-options:report-id=%a" report-id)
(_ "Edit report options")))))
p))
(define (gnc:html-make-empty-data-warning report-title-string)
(define (gnc:html-make-empty-data-warning
report-title-string report-id)
(let ((p (gnc:make-html-text)))
(gnc:html-text-append!
p
@ -700,4 +709,11 @@
(gnc:html-markup-h2 (_ "No data"))
(gnc:html-markup-p
(_ "The selected accounts contain no data/transactions (or only zeroes) for the selected time period")))
(if report-id
(gnc:html-text-append!
p
(gnc:html-markup-p
(gnc:html-markup-anchor
(sprintf #f "gnc-options:report-id=%a" report-id)
(_ "Edit report options")))))
p))

View File

@ -399,11 +399,13 @@ balance at a given time"))
(gnc:html-document-add-object!
document
(gnc:html-make-empty-data-warning report-title))))
(gnc:html-make-empty-data-warning
report-title (gnc:report-id report-obj)))))
(gnc:html-document-add-object!
document
(gnc:html-make-no-account-warning report-title)))
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
document)))

View File

@ -205,7 +205,8 @@
;; error condition: no accounts specified
(gnc:html-document-add-object!
doc
(gnc:html-make-no-account-warning report-title)))
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
doc))

View File

@ -471,7 +471,7 @@
(gnc:html-document-add-object!
document
(gnc:html-make-empty-data-warning
(_ "Average Balance"))))))
report-title (gnc:report-id report-obj))))))
;; make a table (optionally)
(if show-table?
@ -496,7 +496,8 @@
;; if there are no accounts selected...
(gnc:html-document-add-object!
document
(gnc:html-make-no-account-warning)))
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
document))
(gnc:define-report

View File

@ -356,7 +356,9 @@
;; error condition: no accounts specified
(gnc:html-document-add-object!
doc (gnc:html-make-no-account-warning (_ "Balance Sheet"))))
doc
(gnc:html-make-no-account-warning
(_ "Balance Sheet") (gnc:report-id report-obj))))
doc))
(gnc:define-report

View File

@ -458,12 +458,14 @@ developing over time"))
;; else if empty data
(gnc:html-document-add-object!
document
(gnc:html-make-empty-data-warning report-title))))
(gnc:html-make-empty-data-warning
report-title (gnc:report-id report-obj)))))
;; else if no accounts selected
(gnc:html-document-add-object!
document
(gnc:html-make-no-account-warning report-title)))
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
document))

View File

@ -342,12 +342,14 @@
(gnc:html-document-add-object! document chart)
(gnc:html-document-add-object!
document
(gnc:html-make-empty-data-warning report-title))))
(gnc:html-make-empty-data-warning
report-title (gnc:report-id report-obj)))))
;; else no accounts selected
(gnc:html-document-add-object!
document
(gnc:html-make-no-account-warning report-title)))
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
document))

View File

@ -204,7 +204,9 @@
;; error condition: no accounts specified
(gnc:html-document-add-object!
doc (gnc:html-make-no-account-warning report-title)))
doc
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
doc))
(gnc:define-report

View File

@ -225,8 +225,9 @@
;if no accounts selected.
(gnc:html-document-add-object!
document (gnc:html-make-no-account-warning report-title)))
document
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
document))

View File

@ -1182,7 +1182,8 @@ match the given time interval and account selection.")))
(gnc:html-document-add-object!
document
(gnc:html-make-no-account-warning report-title)))
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
document))