diff options
Diffstat (limited to 'src/ellinika/cgi.scm4')
-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 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))))) |