aboutsummaryrefslogtreecommitdiff
path: root/cgi-bin/nea.cgi.in
diff options
context:
space:
mode:
Diffstat (limited to 'cgi-bin/nea.cgi.in')
-rw-r--r--cgi-bin/nea.cgi.in10
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)

Return to:

Send suggestions and report system problems to the System administrator.