[bknr-cvs] hans changed trunk/projects/bos/web/news-tags.lisp

[BKNR Commits]

Revision: 4017
Author: hans
URL: http://bknr.net/trac/changeset/4017

Fix news links.

U   trunk/projects/bos/web/news-tags.lisp

Modified: trunk/projects/bos/web/news-tags.lisp
===================================================================
--- trunk/projects/bos/web/news-tags.lisp	2008-10-24 13:32:33 UTC (rev 4016)
+++ trunk/projects/bos/web/news-tags.lisp	2008-10-26 22:49:23 UTC (rev 4017)
@@ -19,7 +19,7 @@
                                               :key #'news-item-time)))
                              (subseq items 0 (min (length items) 3))))))
       (labels ((show-news-entry (news-item)
-                 (html ((:a :href (format nil "javascript:window_news('/~a/news/~a')" language (store-object-id news-item))
+                 (html ((:a :href "#" :onclick (format nil "return window_news('/~a/news/~a')" language (store-object-id news-item))
                             :class "more")
                         (:strong (:princ-safe (format-date-time (news-item-time news-item) :show-time nil))
                          :br