From 4d7c599a56c6864886b9261cc40769893b6d64e1 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Wed, 15 Jun 2011 12:43:43 +0300
Subject: Minor change in conj.

* src/cgi-bin/conj.scm4: Use ellinika:translate-kbd
* src/ellinika/tests/xlat-kbd.scm: New file.
---
 src/cgi-bin/conj.scm4           | 6 +++---
 src/ellinika/tests/xlat-kbd.scm | 5 +++++
 2 files changed, 8 insertions(+), 3 deletions(-)
 create mode 100644 src/ellinika/tests/xlat-kbd.scm

(limited to 'src')

diff --git a/src/cgi-bin/conj.scm4 b/src/cgi-bin/conj.scm4
index b48b225..52b8d32 100644
--- a/src/cgi-bin/conj.scm4
+++ b/src/cgi-bin/conj.scm4
@@ -63,7 +63,7 @@ ifelse(IFACE,[CGI],(cgi:init))
     (if value
 	(begin
 	  (display " value=\"")
-	  (display (cgi-protect-quotes value))
+	  (display (cgi-protect-quotes (ellinika:translate-input value)))
 	  (display "\""))))
   (display " />
  </td>
@@ -188,8 +188,8 @@ ifelse(IFACE,[CGI],(cgi:init))
    
 (define (do-conj)
   (let ((keyval (cgi:value "key")))
-    (if keyval
-	(show-conjugation keyval))))
+    (if (and keyval (not (string-null? keyval)))
+	(show-conjugation (ellinika:translate-input keyval)))))
 
 (define (conj-html)
   (sql-catch-failure
diff --git a/src/ellinika/tests/xlat-kbd.scm b/src/ellinika/tests/xlat-kbd.scm
new file mode 100644
index 0000000..a181248
--- /dev/null
+++ b/src/ellinika/tests/xlat-kbd.scm
@@ -0,0 +1,5 @@
+(use-modules (ellinika xlat))
+
+(let ((str "mila'v"))
+  (display (ellinika:translate-kbd str))
+  (newline))
-- 
cgit v1.2.1