aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-15 12:43:43 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2011-06-15 12:43:43 +0300
commit4d7c599a56c6864886b9261cc40769893b6d64e1 (patch)
treea976db22ec4e13ce583220c384ee6bf98e423320
parentbb9dd8a54a96307aad7bf976f1736d20c70d43e3 (diff)
downloadellinika-4d7c599a56c6864886b9261cc40769893b6d64e1.tar.gz
ellinika-4d7c599a56c6864886b9261cc40769893b6d64e1.tar.bz2
Minor change in conj.
* src/cgi-bin/conj.scm4: Use ellinika:translate-kbd * src/ellinika/tests/xlat-kbd.scm: New file.
-rw-r--r--src/cgi-bin/conj.scm46
-rw-r--r--src/ellinika/tests/xlat-kbd.scm5
2 files changed, 8 insertions, 3 deletions
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))
63 (if value 63 (if value
64 (begin 64 (begin
65 (display " value=\"") 65 (display " value=\"")
66 (display (cgi-protect-quotes value)) 66 (display (cgi-protect-quotes (ellinika:translate-input value)))
67 (display "\"")))) 67 (display "\""))))
68 (display " /> 68 (display " />
69 </td> 69 </td>
@@ -188,8 +188,8 @@ ifelse(IFACE,[CGI],(cgi:init))
188 188
189(define (do-conj) 189(define (do-conj)
190 (let ((keyval (cgi:value "key"))) 190 (let ((keyval (cgi:value "key")))
191 (if keyval 191 (if (and keyval (not (string-null? keyval)))
192 (show-conjugation keyval)))) 192 (show-conjugation (ellinika:translate-input keyval)))))
193 193
194(define (conj-html) 194(define (conj-html)
195 (sql-catch-failure 195 (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 @@
1(use-modules (ellinika xlat))
2
3(let ((str "mila'v"))
4 (display (ellinika:translate-kbd str))
5 (newline))

Return to:

Send suggestions and report system problems to the System administrator.