diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-17 19:57:47 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-17 19:57:47 +0000 |
commit | db6e0e75a16670791ed6a6708bc4ec5815720d0a (patch) | |
tree | c74d6275c996005340529d20462aac179a64c4e2 /cgi-bin | |
parent | c78a4b86f5188f8dea3cb6fc16fd5895f1e68b33 (diff) | |
download | ellinika-db6e0e75a16670791ed6a6708bc4ec5815720d0a.tar.gz ellinika-db6e0e75a16670791ed6a6708bc4ec5815720d0a.tar.bz2 |
Improve i18n support. Translate all messages to Greek
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@355 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'cgi-bin')
-rw-r--r-- | cgi-bin/dict.cgi.in | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/cgi-bin/dict.cgi.in b/cgi-bin/dict.cgi.in index 69d6bb2..29fe286 100644 --- a/cgi-bin/dict.cgi.in +++ b/cgi-bin/dict.cgi.in @@ -375,9 +375,12 @@ '()))) (define (fuzzy-search conn key theme pos) - (let ((where-cond (list "WHERE")) + (let ((where-cond (list (string-append + "WHERE dict.ident=articles.ident and articles.lang='" + (language-code target-language) + "' AND"))) (select-stmt "SELECT DISTINCT dict.word FROM ") - (from-list (list "dict"))) + (from-list (list ",articles" "dict"))) (cond ((not (null? theme)) @@ -494,9 +497,12 @@ (result (my-sql-query conn (string-append - "SELECT dict.word,dict.ident,pos.abbr,dict.forms,articles.subindex,articles.meaning FROM dict,articles,pos WHERE dict.word=\"" + "SELECT dict.word,dict.ident,pos.abbr,dict.forms,articles.subindex,articles.meaning " + "FROM dict,articles,pos WHERE dict.word=\"" key - "\" and dict.ident=articles.ident and dict.pos=pos.id and pos.canonical='Y' order by dict.ident, articles.subindex")))) + "\" AND dict.ident=articles.ident " + "AND articles.lang='" (language-code target-language) "' " + "AND dict.pos=pos.id AND pos.canonical='Y' order by dict.ident, articles.subindex")))) (cond ((null? result) @@ -514,7 +520,7 @@ (if (and ant (not (null? ant))) (display-xref ant (if (= (length ant) 1) - (_"Антоним: ") (_"Антонимы: "))))) + (_"Αντώνυμο: ") (_"Αντώνυμα: "))))) (display "<P>") (let ((x (my-sql-query conn @@ -523,7 +529,7 @@ (cadr (car entry)) " AND dict.ident=links.xref ORDER BY word")))) (if (and x (not (null? x))) - (display-xref x (_"См. также "))))) + (display-xref x (_"Βλέπετε επίσης "))))) (sort-result result)))))) ((or (not (null? theme)) (> (string->number pos) 0)) (display "<HR>") @@ -539,7 +545,10 @@ (or (ignore-sql-failure (my-sql-query (dict-connect) - "SELECT count,updated from stat")) + (string-append + "SELECT count,updated from stat WHERE lang='" + (language-code target-language) + "'"))) '()))) (if (null? stat-data) |