From b5ecbae40ab352995df2461301d72067ae5ed397 Mon Sep 17 00:00:00 2001 From: sostler Date: Thu, 27 May 2010 20:24:39 -0400 Subject: Fixed feed msg insertion transaction --- src/feed.clj | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/feed.clj') 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))] -- cgit v1.2.3-70-g09d2