Author: hhubner
Date: 2007-04-03 02:41:27 -0400 (Tue, 03 Apr 2007)
New Revision: 2139
Modified:
trunk/projects/bos/worldpay-test/news-handlers.lisp
trunk/projects/bos/worldpay-test/news-tags.lisp
Log:
Enable rich text editing of news item. Display only title as link on front
page.
Modified: trunk/projects/bos/worldpay-test/news-handlers.lisp
===================================================================
--- trunk/projects/bos/worldpay-test/news-handlers.lisp 2007-04-03 06:38:50 UTC (rev 2138)
+++ trunk/projects/bos/worldpay-test/news-handlers.lisp 2007-04-03 06:41:27 UTC (rev 2139)
@@ -35,6 +35,8 @@
(let ((language (session-variable :language)))
(with-bos-cms-page (req :title "Edit news item")
(content-language-chooser req)
+ ((:script :type "text/javascript")
+ "tinyMCE.init({ mode : 'textareas', theme : 'advanced' });")
((:form :method "post")
(:table
(:tr (:td "title")
Modified: trunk/projects/bos/worldpay-test/news-tags.lisp
===================================================================
--- trunk/projects/bos/worldpay-test/news-tags.lisp 2007-04-03 06:38:50 UTC (rev 2138)
+++ trunk/projects/bos/worldpay-test/news-tags.lisp 2007-04-03 06:41:27 UTC (rev 2139)
@@ -19,17 +19,11 @@
:key #'news-item-time)
0 (unless archive 3))))
(labels ((show-news-entry (news-item)
- (html (:strong (:princ-safe (format-date-time (news-item-time news-item) :show-time nil))
- " - "
- (:princ-safe (news-item-title news-item language)))
- :br
- (:princ-safe (subseq (news-item-text news-item language) 0
- (min *news-item-snippet-length*
- (length (news-item-text news-item language)))))
- " "
- ((:a :href (format nil "javascript:window_news('news/~a')" (store-object-id news-item))
+ (html ((:a :href (format nil "javascript:window_news('news/~a')" (store-object-id news-item))
:class "more")
- "... mehr"))))
+ (:strong (:princ-safe (format-date-time (news-item-time news-item) :show-time nil))
+ " - "
+ (:princ-safe (news-item-title news-item language)))))))
(loop for news-item in news-items
for index from 1
do (if archive
@@ -46,4 +40,4 @@
", "
(:princ-safe (news-item-title news-item language)))
((:p :class "text_content")
- (text-with-linebreaks (news-item-text news-item language))))))
\ No newline at end of file
+ (:princ (news-item-text news-item language))))))
\ No newline at end of file