diff --git a/src/report/report-system/html-piechart.scm b/src/report/report-system/html-piechart.scm index 7bff9051c8..adcf29ec4b 100644 --- a/src/report/report-system/html-piechart.scm +++ b/src/report/report-system/html-piechart.scm @@ -53,7 +53,7 @@ (record-constructor )) (define (gnc:make-html-piechart) - (gnc:make-html-piechart-internal -1 -1 #f #f #f #f #f #f #f #f #f #f #f)) + (gnc:make-html-piechart-internal '(pixels . -1) '(pixels . -1) #f #f #f #f #f #f #f #f #f #f #f)) (define gnc:html-piechart-data (record-accessor 'data)) @@ -212,10 +212,15 @@ (push (gnc:html-css-include "jqplot/jquery.jqplot.css")) (push "
\n") + (push (cdr (gnc:html-piechart-width piechart))) + (if (eq? 'pixels (car (gnc:html-piechart-width piechart))) + (push "px;height:") + (push "%;height:")) + + (push (cdr (gnc:html-piechart-height piechart))) + (if (eq? 'pixels (car (gnc:html-piechart-height piechart))) + (push "px;\">\n") + (push "%;\">\n")) (push "