diff options
-rw-r--r-- | src/cgi-bin/nea.scm4 | 3 | ||||
-rw-r--r-- | src/ellinika/dico.scm | 5 |
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) |