diff options
Diffstat (limited to 'cgi-bin/nea.cgi.in')
-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) |