diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-16 22:01:59 +0300 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-16 23:37:03 +0300 |
| commit | 79998f1e7772ba1040154c7ba79dc382e23c6302 (patch) | |
| tree | b24997235eff88b248bf4156ac77bfda75251bb5 /src/ellinika | |
| parent | 393fc19572aee23f558f36beedec1a3ee2c89cc2 (diff) | |
| download | ellinika-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')
| -rw-r--r-- | src/ellinika/cgi.scm4 | 6 |
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 | |||
| 92 | string-append | 92 | string-append |
| 93 | (cons | 93 | (cons |
| 94 | cgi-path | 94 | cgi-path |
| 95 | (let ((arglist (let ((lang (cgi:value "LANG"))) | 95 | (let ((arglist (let ((lang (cgi:value "lang"))) |
| 96 | (do ((ilist (if lang | 96 | (do ((ilist (if lang |
| 97 | (cons "LANG" (cons lang rest)) | 97 | (cons "lang" (cons lang rest)) |
| 98 | rest) (cdr ilist)) | 98 | rest) (cdr ilist)) |
| 99 | (i 1 (1+ i)) | 99 | (i 1 (1+ i)) |
| 100 | (olist '())) | 100 | (olist '())) |
| @@ -156,7 +156,7 @@ THUNK. | |||
| 156 | 156 | ||
| 157 | ;;; Load the language-specific defaults | 157 | ;;; Load the language-specific defaults |
| 158 | (cond | 158 | (cond |
| 159 | ((cgi:value "LANG") => | 159 | ((cgi:value "lang") => |
| 160 | (lambda (x) | 160 | (lambda (x) |
| 161 | (if (file-exists? (template-file x template-file-name)) | 161 | (if (file-exists? (template-file x template-file-name)) |
| 162 | (set! target-language x))))) | 162 | (set! target-language x))))) |