diff options
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) |