diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-06-21 09:55:52 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-06-21 09:55:52 +0000 |
commit | a9a78104cef456d854e2797403f54c502435443e (patch) | |
tree | 76423beaf8234722855d5ca638b2e6d2f92e8fcb /cgi-bin | |
parent | 46db0a002858a7d00401d08ded5e505c50084586 (diff) | |
download | ellinika-a9a78104cef456d854e2797403f54c502435443e.tar.gz ellinika-a9a78104cef456d854e2797403f54c502435443e.tar.bz2 |
Reflect changes to the database structure.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@156 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'cgi-bin')
-rw-r--r-- | cgi-bin/dict.cgi.in | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/cgi-bin/dict.cgi.in b/cgi-bin/dict.cgi.in index a327be7..5531c1c 100644 --- a/cgi-bin/dict.cgi.in +++ b/cgi-bin/dict.cgi.in @@ -778,9 +778,9 @@ (let ((ant (sql-query conn (string-append - "SELECT dict.word FROM dict,antonym WHERE antonym.ident=" + "SELECT dict.word FROM dict,links WHERE links.type='ANT' AND links.ident=" (cadr (car entry)) - " AND dict.ident=antonym.antonym ORDER BY word")))) + " AND dict.ident=links.xref ORDER BY word")))) (if (and ant (not (null? ant))) (display-xref ant (if (= (length ant) 1) @@ -789,9 +789,9 @@ (let ((x (sql-query conn (string-append - "SELECT dict.word FROM dict,xref WHERE xref.ident=" + "SELECT dict.word FROM dict,links WHERE links.type='XREF' AND links.ident=" (cadr (car entry)) - " AND dict.ident=xref.xref ORDER BY word")))) + " AND dict.ident=links.xref ORDER BY word")))) (if (and x (not (null? x))) (display-xref x (_"См. также "))))) (sort-result result)))) |