diff options
Diffstat (limited to 'src/cgi-bin/conj.scm4')
-rw-r--r-- | src/cgi-bin/conj.scm4 | 6 |
1 files changed, 3 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)) (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 |