[bknr-cvs] r2139 - trunk/projects/bos/worldpay-test

[bknr at bknr.net]

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