[bknr-cvs] hans changed trunk/bknr/web/src/web/template-handler.lisp

[BKNR Commits]

Revision: 3745
Author: hans
URL: http://bknr.net/trac/changeset/3745

Fix bug that caused top-level element of a template to be output two times.

U   trunk/bknr/web/src/web/template-handler.lisp

Modified: trunk/bknr/web/src/web/template-handler.lisp
===================================================================
--- trunk/bknr/web/src/web/template-handler.lisp	2008-08-27 23:57:40 UTC (rev 3744)
+++ trunk/bknr/web/src/web/template-handler.lisp	2008-08-28 13:52:36 UTC (rev 3745)
@@ -165,7 +165,8 @@
   (sax:start-element *html-sink* (node-ns toplevel) (node-name toplevel) (node-name toplevel)
 		     (cxml-xmls::compute-attributes/lnames toplevel t))
   (let ((*template-expander* expander))
-    (emit-template-node expander toplevel))
+    (dolist (node (node-children toplevel))
+      (emit-template-node expander node)))
   (sax:end-element *html-sink* (node-ns toplevel) (node-name toplevel) (node-name toplevel)))
 
 (defun find-template (dir components)