aboutsummaryrefslogtreecommitdiff
path: root/cgi-bin
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2006-03-26 19:21:25 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2006-03-26 19:21:25 +0000
commitcaaf2ccb81166ddf9be698d97b333b1f58f6c644 (patch)
tree02aa0e0ebe036b53b4836fb145ecd6548a898ea8 /cgi-bin
parentd80652735c80f6f0aef544e63d915d6098f01226 (diff)
downloadellinika-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.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.