added history size for initial room loading to rooms sql table

1 files changed, 1 insertions, 2 deletions

diff --git a/src/site.clj b/src/site.clj
index 23e2d8d..30aa90e 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -704,12 +704,11 @@ WHERE  u.user_id = ANY(?)"
   (if-let [st (lookup-room-template session (:key room) template)]

     (let [now              (System/currentTimeMillis)

 	  nick             (session :nick)

-	  limit            (if (:admin_only room) *vip-dumps-per-page* *dumps-per-page*)

 	  raw-msgs         (reverse (tags/fetch-image-dumps :room (:key room)

                                                             :image-only false

                                                             :user-tag-id (:user_id session)

                                                             :hide-vip false

-                                                            :limit limit))

+                                                            :limit (:history_size room)))

 	  message-list     (to-array (map process-message-for-output raw-msgs))]

       (if nick

 	(dosync