1 files changed, 15 insertions, 13 deletions

diff --git a/src/cgi-bin/dict.scm4 b/src/cgi-bin/dict.scm4
index 77c1b3a..3b24367 100644
--- a/src/cgi-bin/dict.scm4
+++ b/src/cgi-bin/dict.scm4
@@ -1,4 +1,4 @@
 ;;;; 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
@@ -19,8 +19,11 @@
 (set! %load-path (cons "GUILE_SITE" %load-path))
 
+(setlocale LC_ALL "")
+
 (use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user))
              (ice-9 rdelim)
              (xmltools dict)
              (gamma sql)
+             (gamma syslog)
              (ellinika elmorph)
              (ellinika sql)
@@ -80,5 +83,5 @@ ifelse(IFACE,[CGI],(cgi:init))
 (define (join-widget widget-id tabindex)
   (let* ((name (string-append "join" widget-id))
-         (selected-choice (or (let ((s (cgi:value name)))
+         (selected-choice (or (let ((s (cgi:value-u8 name)))
                                 (if s
                                     (string->number s)
@@ -113,5 +116,5 @@ ifelse(IFACE,[CGI],(cgi:init))
  <td>
   <input size=\"36\" name=\"key\" tabindex=\"1\"")
-  (let ((value (cgi:value "key")))
+  (let ((value (cgi:value-u8 "key")))
     (if value
         (begin
@@ -133,5 +136,5 @@ ifelse(IFACE,[CGI],(cgi:init))
   (display "</td><td>")
   
-  (let ((selected-choice (or (let ((s (cgi:value "pos")))
+  (let ((selected-choice (or (let ((s (cgi:value-u8 "pos")))
                                (if s
                                    (string->number s)
@@ -167,5 +170,5 @@ ifelse(IFACE,[CGI],(cgi:init))
        (display (list-ref category 1))
        (display "</td><td>")
-       (let ((selected-choice (or (let ((s (cgi:value (list-ref category 0))))
+       (let ((selected-choice (or (let ((s (cgi:value-u8 (list-ref category 0))))
                                     (if s
                                         (string->number s)
@@ -354,5 +357,5 @@ ifelse(IFACE,[CGI],(cgi:init))
         (if (or (not (string-null? key)) (not (null? theme)))
             (set! where-cond (cons 
-                              (if (string=? (cgi:value "joinpos") "0")
+                              (if (string=? (cgi:value-u8 "joinpos") "0")
                                   " AND"
                                   " OR")
@@ -419,19 +422,18 @@ ifelse(IFACE,[CGI],(cgi:init))
 
 (define (dict-search)
-  (let ((keyval (if (cgi:value "ident")
-                    (dict:decode-string (cgi:value "ident"))
-                    (cgi:value "key")))
+  (let ((keyval (or (cgi:value-u8 "ident")
+                    (cgi:value-u8 "key")))
         (theme (do ((catlist (get-topic-list) (cdr catlist))
                     (ret '()))
                    ((null? catlist) ret)
                  (let ((name (caar catlist)))
-                   (let ((v (cgi:value name)))
+                   (let ((v (cgi:value-u8 name)))
                      (if (and v (> (string->number v) 0))
                          (set! ret (append
                                     ret
                                     (list (= (string->number
-                                              (cgi:value (string-append "join" name))) 0)
+                                              (cgi:value-u8 (string-append "join" name))) 0)
                                           v))))))))
-        (pos (or (cgi:value "pos") "0")))
+        (pos (or (cgi:value-u8 "pos") "0")))
 
     (sql-catch-failure
@@ -522,5 +524,5 @@ dict.forms,articles.subindex,articles.meaning,(dict.pos & conv(\"100000\",16,10)
                                ((string=? name "lang"))
                                (else
-                                (let ((v (cgi:value name)))
+                                (let ((v (cgi:value-u8 name)))
                                   (cond ((and v (not (string-null? v)))
                                          (display "&amp;")