diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-15 12:43:43 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-15 12:43:43 +0300 |
commit | 4d7c599a56c6864886b9261cc40769893b6d64e1 (patch) | |
tree | a976db22ec4e13ce583220c384ee6bf98e423320 | |
parent | bb9dd8a54a96307aad7bf976f1736d20c70d43e3 (diff) | |
download | ellinika-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.scm4 | 6 | ||||
-rw-r--r-- | src/ellinika/tests/xlat-kbd.scm | 5 |
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)) | ||