aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2006-03-22 21:28:39 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2006-03-22 21:28:39 +0000
commit3f7bb5da52992b3263cc8514beaafba4017cc0cd (patch)
tree7d52e27e4760d967dfd7ecb6b0e78ec774d3c9d6
parent62d31cbfa9f2300da35bbf01607606d8018fa113 (diff)
downloadellinika-3f7bb5da52992b3263cc8514beaafba4017cc0cd.tar.gz
ellinika-3f7bb5da52992b3263cc8514beaafba4017cc0cd.tar.bz2
(nea-html): Handle @@args@@ keyword
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@385 941c8c0f-9102-463b-b60b-cd22ce0e6858
-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.