summaryrefslogtreecommitdiffabout
path: root/src/ellinika
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-16 19:01:59 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2011-06-16 20:37:03 (GMT)
commit79998f1e7772ba1040154c7ba79dc382e23c6302 (patch) (side-by-side diff)
treeb24997235eff88b248bf4156ac77bfda75251bb5 /src/ellinika
parent393fc19572aee23f558f36beedec1a3ee2c89cc2 (diff)
downloadellinika-79998f1e7772ba1040154c7ba79dc382e23c6302.tar.gz
ellinika-79998f1e7772ba1040154c7ba79dc382e23c6302.tar.bz2
Various improvements.
* src/cgi-bin/conj.scm4: Expect argument names in lower case. * src/cgi-bin/dict.scm4: Likewise. * src/cgi-bin/nea.scm4: Likewise. * src/ellinika/cgi.scm4: Likewise. * xml/lingua.conf.in: Pass lang argument to CGIs in lower case. * xml/pl/ellinika.xml: Add PREREQ LINGUA attribute. * xml/ru/ellinika.xml: Likewise. * xml/uk/ellinika.xml: Likewise. * .htaccess: Downcase CGI argument names.
Diffstat (limited to 'src/ellinika') (more/less context) (ignore whitespace changes)
-rw-r--r--src/ellinika/cgi.scm46
1 files changed, 3 insertions, 3 deletions
diff --git a/src/ellinika/cgi.scm4 b/src/ellinika/cgi.scm4
index 8cbfeca..d1b4a5c 100644
--- a/src/ellinika/cgi.scm4
+++ b/src/ellinika/cgi.scm4
@@ -92,9 +92,9 @@ ifelse(IFACE,[CGI],,dnl
string-append
(cons
cgi-path
- (let ((arglist (let ((lang (cgi:value "LANG")))
+ (let ((arglist (let ((lang (cgi:value "lang")))
(do ((ilist (if lang
- (cons "LANG" (cons lang rest))
+ (cons "lang" (cons lang rest))
rest) (cdr ilist))
(i 1 (1+ i))
(olist '()))
@@ -156,7 +156,7 @@ THUNK.
;;; Load the language-specific defaults
(cond
- ((cgi:value "LANG") =>
+ ((cgi:value "lang") =>
(lambda (x)
(if (file-exists? (template-file x template-file-name))
(set! target-language x)))))

Return to:

Send suggestions and report system problems to the System administrator.