aboutsummaryrefslogtreecommitdiff
path: root/gn/data/hits.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gn/data/hits.scm')
-rw-r--r--gn/data/hits.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/gn/data/hits.scm b/gn/data/hits.scm
index 88dee11..a7ba45a 100644
--- a/gn/data/hits.scm
+++ b/gn/data/hits.scm
@@ -20,20 +20,22 @@
update-precompute!
hit-data-id
hit-probeset-id
+ hit-probesetfreeze-id
))
(define-record-type <hit>
- (make-hit data-id probeset-id)
+ (make-hit data-id probeset-id probesetfreeze-id)
hit?
(data-id hit-data-id)
(probeset-id hit-probeset-id)
+ (probesetfreeze-id hit-probesetfreeze-id)
)
(define (get-precompute-hits db first-id num)
(dbi-query db (string-append "select Locus, DataId, ProbeSetId, ProbeSetFreezeId from ProbeSetXRef where DataId>" (int-to-string first-id) " AND Locus_old is NULL ORDER BY DataId LIMIT " (format #f "~d" num)))
(map (lambda (r)
- (make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId")))
+ (make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId") (assoc-ref r "ProbeSetFreezeId")))
(get-rows db '())
))