aboutsummaryrefslogtreecommitdiff
path: root/src/cgi-bin/conj.scm4
diff options
context:
space:
mode:
Diffstat (limited to 'src/cgi-bin/conj.scm4')
-rw-r--r--src/cgi-bin/conj.scm49
1 files changed, 2 insertions, 7 deletions
diff --git a/src/cgi-bin/conj.scm4 b/src/cgi-bin/conj.scm4
index 72da00e..fec7eca 100644
--- a/src/cgi-bin/conj.scm4
+++ b/src/cgi-bin/conj.scm4
@@ -245,11 +245,6 @@ ifelse(IFACE,[CGI],(cgi:init))
result)
(return #f))))
-(define (dict-cgi-name)
- (let* ((my-name cgi-script-name)
- (slpos (string-rindex my-name #\/)))
- (string-append (substring my-name 0 slpos) "/dict.SCRIPT_SUFFIX")))
-
(define (show-conjugation verb)
(catch #t
(lambda ()
@@ -266,7 +261,7 @@ ifelse(IFACE,[CGI],(cgi:init))
((and descr (not (null? descr)))
(format #t "<h2 class=\"verb\"><a href=\"~A\">~A - ~A</a></h2>"
(make-cgi-name
- (dict-cgi-name) "ident" (dict:encode-string verb))
+ (cgi-program-name "dict") "ident" (dict:encode-string verb))
verb (caar descr)))
(else
(format #t
@@ -328,7 +323,7 @@ ifelse(IFACE,[CGI],(cgi:init))
"SELECT DISTINCT word\
FROM dict\
WHERE sound LIKE ~Q\
- AND (pos & 1048576) = 1048576 ORDER BY 1"
+ AND (pos & 1048576) <> 0 ORDER BY 1"
(ellinika:sounds-like key))))
(cond
((null? result)

Return to:

Send suggestions and report system problems to the System administrator.