diff options
Diffstat (limited to 'gn/data/hits.scm')
| -rw-r--r-- | gn/data/hits.scm | 6 |
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 '()) )) |