diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-26 19:21:25 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-26 19:21:25 +0000 |
commit | caaf2ccb81166ddf9be698d97b333b1f58f6c644 (patch) | |
tree | 02aa0e0ebe036b53b4836fb145ecd6548a898ea8 /cgi-bin | |
parent | d80652735c80f6f0aef544e63d915d6098f01226 (diff) | |
download | ellinika-caaf2ccb81166ddf9be698d97b333b1f58f6c644.tar.gz ellinika-caaf2ccb81166ddf9be698d97b333b1f58f6c644.tar.bz2 |
(display-article-header): Enclose all header fields, including permalink reference, in a div.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@431 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'cgi-bin')
-rw-r--r-- | cgi-bin/nea.cgi.in | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cgi-bin/nea.cgi.in b/cgi-bin/nea.cgi.in index 22a7428..ef84ac5 100644 --- a/cgi-bin/nea.cgi.in +++ b/cgi-bin/nea.cgi.in @@ -277,10 +277,14 @@ (display "</div>")))))))) (define (display-article-header item) + (display "<div id=\"news-header\">") (format #t "<span class=\"itemdate\">~A</span>\n" (car item)) (display "<span class=\"itemsubject\">\n") (display (list-ref item 2)) - (display "</span> ")) + (display "</span>") + (if (not (cgi:value "timestamp")) + (permalink "span" (list-ref item 1))) + (display "</div><!-- news-header -->")) (define (display-article-text item . rest) (let ((class (and (not (null? rest)) (car rest)))) @@ -298,10 +302,6 @@ (catch-sql (assert-article (display-article-header article) - - (if (not (cgi:value "timestamp")) - (permalink "span" (list-ref article 1))) - (display-article-text article "itemtext")))) (define (title) |