aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/cgi-bin/nea.scm43
-rw-r--r--src/ellinika/dico.scm5
2 files changed, 5 insertions, 3 deletions
diff --git a/src/cgi-bin/nea.scm4 b/src/cgi-bin/nea.scm4
index 3c87b3e..e7f14a4 100644
--- a/src/cgi-bin/nea.scm4
+++ b/src/cgi-bin/nea.scm4
@@ -23,7 +23,8 @@
(gamma sql)
(xmltools dict)
(ellinika xlat)
- (ellinika cgi))
+ (ellinika cgi)
+ (ellinika i18n))
ifelse(IFACE,[CGI],(cgi:init))
diff --git a/src/ellinika/dico.scm b/src/ellinika/dico.scm
index f9a6f63..90302df 100644
--- a/src/ellinika/dico.scm
+++ b/src/ellinika/dico.scm
@@ -243,11 +243,12 @@ Invariant Sections, no Front-Cover and Back-Cover Texts"))
(cdr slist)))))))
(define (match-selector dbh strat key)
- (let* ((sound (ellinika:sounds-like key))
+ (let* ((key (dico-make-key strat (dico-key->word key)))
+ (sound (ellinika:sounds-like (dico-key->word key)))
(dlist (mapcan
(lambda (elt)
(let ((word (car elt)))
- (and (dico-strat-select? strat word sound)
+ (and (dico-strat-select? strat word key)
word)))
(my-sql-query
(dbh:conn dbh)

Return to:

Send suggestions and report system problems to the System administrator.