Changeset 2812
- Timestamp:
- 03/28/08 10:31:35 (10 months ago)
- Files:
-
- trunk/projects/bos/web/news-tags.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/bos/web/news-tags.lisp
r2644 r2812 20 20 (subseq items 0 (min (length items) 3)))))) 21 21 (labels ((show-news-entry (news-item) 22 (html ((:a :href (format nil "javascript:window_news(' news/~a')"(store-object-id news-item))22 (html ((:a :href (format nil "javascript:window_news('/~a/news/~a')" language (store-object-id news-item)) 23 23 :class "more") 24 24 (:strong (:princ-safe (format-date-time (news-item-time news-item) :show-time nil))
