diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2008-06-01 18:02:07 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2008-06-01 18:02:07 +0000 |
commit | bad5cebbeb453558318f9efd27e612755fbdc06c (patch) | |
tree | 356af31d7940fc65db6902f0c8ae885d57a097db /scm/dictrans.scm | |
parent | ea7207d620e28fe0201fd9b5ee557de740ebd90e (diff) | |
download | ellinika-bad5cebbeb453558318f9efd27e612755fbdc06c.tar.gz ellinika-bad5cebbeb453558318f9efd27e612755fbdc06c.tar.bz2 |
* scm/dictrans.scm (insert-node): Fix inserts into links table.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@510 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'scm/dictrans.scm')
-rw-r--r-- | scm/dictrans.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index 7161e2d..ae9b3f5 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -787,14 +787,14 @@ #t))) (define (insert-node conn node lang) - (letrec ((insert-link (lambda (type value) + (letrec ((insert-link (lambda (type value idx) (run-query conn (format #f "INSERT INTO pending_links (type,originator,word) VALUES('~A',~A,'~A')" type - dict-index + idx value))))) (for-each @@ -852,7 +852,7 @@ ;;; Insert cross-references (for-each (lambda (x) - (insert-link "XREF" x)) + (insert-link "XREF" x word-index)) (append (node-get #:xref node) (p-article-get #:xref p-article))) @@ -860,7 +860,7 @@ ;;; Insert antonyms (for-each (lambda (x) - (insert-link "ANT" x)) + (insert-link "ANT" x word-index)) (p-article-get #:aref p-article)) ;;; Insert topics |