[bknr-cvs] hans changed trunk/bknr/web/src/web/t

[BKNR Commits]

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

Fix templater.

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

Modified: trunk/bknr/web/src/web/tags.lisp
===================================================================
--- trunk/bknr/web/src/web/tags.lisp	2008-09-01 16:17:30 UTC (rev 3764)
+++ trunk/bknr/web/src/web/tags.lisp	2008-09-01 19:40:08 UTC (rev 3765)
@@ -13,7 +13,7 @@
 				template)))
   (let* ((expander *template-expander*)
          (pathname (find-template-pathname expander template))
-         (toplevel (get-cached-template pathname expander))
+         (toplevel (parsed-template-dom (get-cached-template pathname expander)))
          (*toplevel-children* *tag-children*))
     (emit-template-node *template-expander* toplevel)))
 

Modified: trunk/bknr/web/src/web/template-handler.lisp
===================================================================
--- trunk/bknr/web/src/web/template-handler.lisp	2008-09-01 16:17:30 UTC (rev 3764)
+++ trunk/bknr/web/src/web/template-handler.lisp	2008-09-01 19:40:08 UTC (rev 3765)
@@ -51,7 +51,7 @@
 	(function-name (string-upcase name)))
     (or (gethash function-name (or (gethash (symbol-name package-name) *template-functions*)
 				   (error "can't find package ~A in tag function registry" package-name)))
-	(error "can't find tag function ~A:~A in command package ~A" ns name package-name))))
+	(error "can't find tag function ~A in command package ~A" name package-name))))
 
 (defclass local-template-expander ()
   ((parent :initarg :parent :reader local-template-expander-parent)