diff options
Diffstat (limited to 'cgi-bin')
| -rw-r--r-- | cgi-bin/dict.cgi.in | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/cgi-bin/dict.cgi.in b/cgi-bin/dict.cgi.in index 29fe286..361bcd1 100644 --- a/cgi-bin/dict.cgi.in +++ b/cgi-bin/dict.cgi.in @@ -114,7 +114,11 @@ (let ((conn (dict-connect))) (let ((ctg (my-sql-query conn - "SELECT category, title, description FROM category ORDER BY category"))) + (string-append + "SELECT t.category, c.title, c.description " + "FROM category c,topic t " + "WHERE c.lang='" (language-code target-language) "' " + "AND c.category=t.category GROUP BY 1 ORDER BY 1")))) (if (null? ctg) '() (map |