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.in18
1 files changed, 16 insertions, 2 deletions
diff --git a/cgi-bin/nea.cgi.in b/cgi-bin/nea.cgi.in
index e3a08c5..cde852a 100644
--- a/cgi-bin/nea.cgi.in
+++ b/cgi-bin/nea.cgi.in
@@ -125,7 +125,7 @@
(display (_ "Κανένα νέα"))
(display "</div>"))
(else
- (display "<table class=\"news-summary\">\n")
+ (display "<table class=\"news-summary frame\">\n")
(let ((ctr 0)
(langlist (make-my-lang-list)))
(for-each
@@ -218,7 +218,21 @@
(catch-sql
(assert-article
(display-article-header
- article))))))))
+ article)))))
+ (cons "@@args@@"
+ (lambda ()
+ (for-each
+ (lambda (name)
+ (cond
+ ((string=? name "LANG"))
+ (else
+ (let ((v (cgi:value name)))
+ (cond ((and v (not (string-null? v)))
+ (display "&")
+ (display name)
+ (display "=")
+ (display v)))))))
+ (cgi:names)))))))
(do ((line (read-line) (read-line)))
((eof-object? line) #f)

Return to:

Send suggestions and report system problems to the System administrator.