summaryrefslogtreecommitdiffabout
path: root/src/cgi-bin/conj.scm4
Side-by-side diff
Diffstat (limited to 'src/cgi-bin/conj.scm4') (more/less context) (show whitespace changes)
-rw-r--r--src/cgi-bin/conj.scm49
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,3 +1,3 @@
;;;; 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
;;;;
@@ -20,2 +20,3 @@
+(setlocale LC_ALL "")
(use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user))
@@ -63,3 +64,3 @@ ifelse(IFACE,[CGI],(cgi:init))
<input size=\"36\" name=\"key\" tabindex=\"1\"")
- (let ((value (cgi:value "key")))
+ (let ((value (cgi:value-u8 "key")))
(if value
@@ -352,3 +353,3 @@ ifelse(IFACE,[CGI],(cgi:init))
(define (do-conj)
- (let ((keyval (cgi:value "key")))
+ (let ((keyval (cgi:value-u8 "key")))
(if (and keyval (not (string-null? keyval)))
@@ -402,3 +403,3 @@ ifelse(IFACE,[CGI],(cgi:init))
(else
- (let ((v (cgi:value name)))
+ (let ((v (cgi:value-u8 name)))
(cond ((and v (not (string-null? v)))

Return to:

Send suggestions and report system problems to the System administrator.