diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-22 21:28:39 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-22 21:28:39 +0000 |
commit | 3f7bb5da52992b3263cc8514beaafba4017cc0cd (patch) | |
tree | 7d52e27e4760d967dfd7ecb6b0e78ec774d3c9d6 /cgi-bin | |
parent | 62d31cbfa9f2300da35bbf01607606d8018fa113 (diff) | |
download | ellinika-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
Diffstat (limited to 'cgi-bin')
-rw-r--r-- | cgi-bin/nea.cgi.in | 18 |
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) |