aboutsummaryrefslogtreecommitdiff
path: root/cgi-bin
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2006-03-18 20:53:33 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2006-03-18 20:53:33 +0000
commitb08fec87cd79711633a9ae7dd1e0c04abe484ad2 (patch)
tree5e1d82dd5f034250ace40f9fe3c2567cf06bbeca /cgi-bin
parent953dc1627134e54be87f289378cfc4b3581aa6ee (diff)
downloadellinika-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')
-rw-r--r--cgi-bin/dict.cgi.in6
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

Return to:

Send suggestions and report system problems to the System administrator.