X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=views.lisp;h=f6b811ae0ae8913492498c9001d91fa0e8a338de;hb=4e7663474e8f4d70c04379b1a8a2859a03f13abc;hp=d22f6232a9fc0acb2c7ea20dfa36bc52d3a416e8;hpb=0817a8721cbefca2205dcde535ff6b164033abef;p=hyperobject.git

diff --git a/views.lisp b/views.lisp
index d22f623..f6b811a 100644
--- a/views.lisp
+++ b/views.lisp
@@ -89,7 +89,7 @@
 		  :accessor link-href-end)
    (link-ampersand :type (or string null) :initform nil :initarg :link-ampersand
 		   :accessor link-ampersand))
-  (:default-initargs :link-page "lookup-func1")
+  (:default-initargs :link-page "meta-search.html")
   (:documentation "View class for a hyperobject"))
 
 
@@ -218,7 +218,7 @@
 		       (funcall formatter slot-data)
 		       slot-data)))
     (if cdata
-	(write-xml-cdata fmt-data strm)
+	(write-cdata fmt-data strm)
 	(write-simple fmt-data strm))))
 
 (defun ppfc-html (title name type formatter cdata print-func)