diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-18 20:53:33 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-18 20:53:33 +0000 |
commit | b08fec87cd79711633a9ae7dd1e0c04abe484ad2 (patch) | |
tree | 5e1d82dd5f034250ace40f9fe3c2567cf06bbeca /cgi-bin/dict.cgi.in | |
parent | 953dc1627134e54be87f289378cfc4b3581aa6ee (diff) | |
download | ellinika-b08fec87cd79711633a9ae7dd1e0c04abe484ad2.tar.gz ellinika-b08fec87cd79711633a9ae7dd1e0c04abe484ad2.tar.bz2 |
(get-topic-list): Update to match new db structure
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@367 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'cgi-bin/dict.cgi.in')
-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 |