Revision: 3652 Author: ksprotte URL: http://bknr.net/trac/changeset/3652

edit-poi-handler added link to poi microsite

U trunk/projects/bos/web/poi-handlers.lisp

Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-07-28 08:47:01 UTC (rev 3651) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-07-28 08:48:19 UTC (rev 3652) @@ -74,7 +74,8 @@ ((:form :method "POST" :enctype "multipart/form-data") ((:table :border "1") (:tr (:td "name") - (:td (:princ-safe (poi-name poi)))) + (:td (:princ-safe (poi-name poi)) + (cmslink (format nil "/poi-xml/~D?lang=~A" (store-object-id poi) language) "view"))) (:tr (:td "published") (:td (checkbox-field "published" "published" :checked (poi-published poi)))) (:tr (:td "title")