[Gnucash-changes] r13153 - gnucash/trunk/src/report/report-system - A little error checking for report titles.

Wed Feb 8 10:00:25 EST 2006

Author: chris
Date: 2006-02-08 10:00:24 -0500 (Wed, 08 Feb 2006)
New Revision: 13153
Trac: http://svn.gnucash.org/trac/changeset/13153

Modified:
   gnucash/trunk/src/report/report-system/html-document.scm
Log:
   A little error checking for report titles.


Modified: gnucash/trunk/src/report/report-system/html-document.scm
===================================================================

--- gnucash/trunk/src/report/report-system/html-document.scm	2006-02-08 06:04:51 UTC (rev 13152)
+++ gnucash/trunk/src/report/report-system/html-document.scm	2006-02-08 15:00:24 UTC (rev 13153)
@@ -130,14 +130,16 @@
                (push (lambda (l) (set! retval (cons l retval))))
 	       (objs (gnc:html-document-objects doc))
 	       (work-to-do (length objs))
-	       (work-done 0))
+	       (work-done 0)
+               (title (gnc:html-document-title doc)))
           ;; compile the doc style 
           (gnc:html-style-table-compile (gnc:html-document-style doc)
                                         (gnc:html-document-style-stack doc))
           ;; push it 
           (gnc:html-document-push-style doc (gnc:html-document-style doc))
-
-          (gnc:report-render-starting (gnc:html-document-title doc))
+          (if (string-null? title)
+              (gnc:error "Null document title")
+              (gnc:report-render-starting (gnc:html-document-title doc)))
           (if (not (null? headers?))
               (begin 
                 (push "<html>\n")

