[bknr-cvs] ksprotte changed trunk/projects/bos/web/poi-handlers.lisp

[BKNR Commits]

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")