summaryrefslogtreecommitdiffabout
path: root/scm/dictrans.scm
authorSergey Poznyakoff <gray@gnu.org.ua>2008-06-01 18:02:07 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2008-06-01 18:02:07 (GMT)
commitbad5cebbeb453558318f9efd27e612755fbdc06c (patch) (side-by-side diff)
tree356af31d7940fc65db6902f0c8ae885d57a097db /scm/dictrans.scm
parentea7207d620e28fe0201fd9b5ee557de740ebd90e (diff)
downloadellinika-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') (more/less context) (ignore whitespace changes)
-rw-r--r--scm/dictrans.scm8
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

Return to:

Send suggestions and report system problems to the System administrator.