Revision: 3778 Author: ksprotte URL: http://bknr.net/trac/changeset/3778
link to show POI in microsite more prominent
U trunk/projects/bos/web/poi-handlers.lisp
Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-09-03 11:33:06 UTC (rev 3777) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-09-03 11:43:11 UTC (rev 3778) @@ -66,12 +66,12 @@ (html (:h2 "This POI is not complete in the current language - Please check that " "the location and all text fields are set and that at least 6 images " "have been uploaded."))) + (:p (cmslink (format nil "/poi-xml/~D?lang=~A" (store-object-id poi) language) + (:format "show this POI in ~A microsite" (string-upcase language)))) ((:form :method "POST" :enctype "multipart/form-data") ((:table :border "1") (:tr (:td "name") - (:td (:princ-safe (poi-name poi)) - " " - (cmslink (format nil "/poi-xml/~D?lang=~A" (store-object-id poi) language) "[view]"))) + (:td (:princ-safe (poi-name poi)))) (:tr (:td "published") (:td (checkbox-field "published" "published" :checked (poi-published poi)))) (:tr (:td "title")