[piechart|scatter] define gnc:not-all-zeros locally

which ensures that html-piechart and html-scatter converted into
modules do not need to import this function from elsewhere.

gnucash/report/html-piechart.scm

@@ -151,6 +151,14 @@
 (define gnc:html-piechart-set-button-3-legend-urls!
   (record-modifier <html-piechart> 'button-3-legend-urls))
 
+(define (gnc:not-all-zeros data)
+  (define (myor list)
+    (if (null? list) #f
+        (or (car list) (myor (cdr list)))))
+  (cond ((number? data) (not (= 0 data)))
+	((list? data) (myor (map gnc:not-all-zeros data)))
+	(else #f)))
+
 (define (gnc:html-piechart-render piechart doc)
   (let* ((chart (gnc:make-html-chart))
          (title (gnc:html-piechart-title piechart))

gnucash/report/html-scatter.scm

@@ -132,6 +132,14 @@
        scatter
        (cons newpoint (gnc:html-scatter-data scatter)))))
 
+(define (gnc:not-all-zeros data)
+  (define (myor list)
+    (if (null? list) #f
+        (or (car list) (myor (cdr list)))))
+  (cond ((number? data) (not (= 0 data)))
+	((list? data) (myor (map gnc:not-all-zeros data)))
+	(else #f)))
+
 ;; The Renderer
 (define (gnc:html-scatter-render scatter doc)
   (let* ((chart (gnc:make-html-chart))