Permalink
Browse files

Fix see-also. All API functions should work.

  • Loading branch information...
dakrone committed Oct 14, 2010
1 parent 914eb16 commit e80dc275085cebe262f572277035fd7e6efeb9d4
Showing with 5 additions and 6 deletions.
  1. +5 −6 src/cd_wsapi/core.clj
View
@@ -220,12 +220,11 @@
:body (encode-to-str
(with-connection db
(transaction
- (when-let [id (get-id ns name)]
- (when-let [see-also-ids (with-query-results
- rs
- ["select to_id from see_alsos where from_id = ?" id]
- (doall rs))]
- (map format-see-also see-also-ids))))))}))
+ (when-let [see-also-ids (with-query-results
+ rs
+ ["select to_id from flat_see_alsos_view where ns = ? and function = ?" ns name]
+ (doall rs))]
+ (map format-see-also see-also-ids)))))}))

0 comments on commit e80dc27

Please sign in to comment.