Changes in Scheme.

* src/ellinika/dico.scm (match-selector): Update to work with
Dico 2.0.90
* src/cgi-bin/nea.scm4: Use (ellinika i18n

git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@550 941c8c0f-9102-463b-b60b-cd22ce0e6858

1 files changed, 3 insertions, 2 deletions

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)