diff options
Diffstat (limited to 'src/cgi-bin/conj.scm4')
-rw-r--r-- | src/cgi-bin/conj.scm4 | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/cgi-bin/conj.scm4 b/src/cgi-bin/conj.scm4 index 83fb846..6a49c62 100644 --- a/src/cgi-bin/conj.scm4 +++ b/src/cgi-bin/conj.scm4 @@ -1,8 +1,8 @@ ;;;; Greek Dictionary Web Engine -;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011 Sergey Poznyakoff +;;;; Copyright (C) 2004, 2005, 2006, 2007, 2010, 2011, 2015 Sergey Poznyakoff ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by ;;;; the Free Software Foundation; either version 3 of the License, or ;;;; (at your option) any later version. ;;;; @@ -15,12 +15,13 @@ ;;;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;;; ;;; Tailor this statement to your needs if necessary. (set! %load-path (cons "GUILE_SITE" %load-path)) +(setlocale LC_ALL "") (use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user)) (srfi srfi-1) (ice-9 rdelim) (ice-9 optargs) (xmltools dict) (ellinika config) @@ -58,13 +59,13 @@ ifelse(IFACE,[CGI],(cgi:init)) <td>") (display (_"Εισάγετε το ρήμα")) (display " </td> <td> <input size=\"36\" name=\"key\" tabindex=\"1\"") - (let ((value (cgi:value "key"))) + (let ((value (cgi:value-u8 "key"))) (if value (begin (display " value=\"") (display (cgi-protect-quotes value)) (display "\"")))) (display " /> @@ -347,13 +348,13 @@ ifelse(IFACE,[CGI],(cgi:init)) (display "</td>")) (display "</tr>"))) (display "</table>"))))) (define (do-conj) - (let ((keyval (cgi:value "key"))) + (let ((keyval (cgi:value-u8 "key"))) (if (and keyval (not (string-null? keyval))) (let ((input (ellinika:translate-input (let ((keyval keyval)) (cond ((string-suffix? "o'" keyval) (string-set! keyval @@ -397,13 +398,13 @@ ifelse(IFACE,[CGI],(cgi:init)) (lambda () (for-each (lambda (name) (cond ((string=? name "lang")) (else - (let ((v (cgi:value name))) + (let ((v (cgi:value-u8 name))) (cond ((and v (not (string-null? v))) (display "&") (display name) (display "=") (display v))))))) (cgi:names)))) |