diff options
| author | sostler <sbostler@gmail.com> | 2010-05-27 20:24:39 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-05-27 20:24:39 -0400 |
| commit | b5ecbae40ab352995df2461301d72067ae5ed397 (patch) | |
| tree | d8fc0ba472c6236c9cf6fb7b891508b38e93c41f /src/feed.clj | |
| parent | 1f52229775ac654aaf4e1807b38a4bc1527a1434 (diff) | |
Fixed feed msg insertion transaction
Diffstat (limited to 'src/feed.clj')
| -rwxr-xr-x | src/feed.clj | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/feed.clj b/src/feed.clj index 43ad077..3a3cc35 100755 --- a/src/feed.clj +++ b/src/feed.clj @@ -90,13 +90,10 @@ WHERE NOT EXISTS (SELECT 1 filtered-good (filter-posted-images good room-id)] (doseq [img filtered-good] (println (format "Inserting %s into %s from %s" img room-key feed)) - (let [msg-id (insert-feed-image-to-db! room-id feed img bot-id) - msg {:msg_id msg-id - :nick bot-nick - :created_on (new Date) - :content img}] + (let [msg-id (insert-feed-image-to-db! room-id feed img bot-id)] (dosync - (add-message msg (lookup-room room-key))))))) + (add-message (build-msg bot-nick img msg-id) + (lookup-room room-key))))))) (defn process-all-feeds! [] (doseq [f (shuffle (read-feeds))] |