aboutsummaryrefslogtreecommitdiff
path: root/gn/data/hits.scm
diff options
context:
space:
mode:
authorPjotr Prins2024-07-07 14:44:19 +0200
committerPjotr Prins2024-07-07 14:44:19 +0200
commitc82e6ce80fd26146f6187b9babbba561f3b65973 (patch)
tree3596db642cce8fba9f3c5b1ed58f3e48cab71e95 /gn/data/hits.scm
parent65ee7ce5c99aeb802152027c43c9285aec3ab9ad (diff)
downloadgn-guile-c82e6ce80fd26146f6187b9babbba561f3b65973.tar.gz
precompute: URL is now correct (validated)
Diffstat (limited to 'gn/data/hits.scm')
-rw-r--r--gn/data/hits.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gn/data/hits.scm b/gn/data/hits.scm
index a7ba45a..85c4912 100644
--- a/gn/data/hits.scm
+++ b/gn/data/hits.scm
@@ -33,7 +33,7 @@
)
(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)))
+ (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 " (int-to-string num)))
(map (lambda (r)
(make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId") (assoc-ref r "ProbeSetFreezeId")))
(get-rows db '())