 
   ([conn org-uuid :- lib-schema/UniqueID author-uuid :- lib-schema/UniqueID order start :- LongNumber
     direction limit sort-type allowed-boards :- [AllowedBoard] container-last-seen-at {:keys [count container-id] :or {count false}}]
-  {:pre [(db-common/conn? conn)
-         (#{:desc :asc} order)
-         (#{:before :after} direction)
-         (integer? limit)
-         (#{:recent-activity :recently-posted} sort-type)]}
-  (storage-db-common/read-paginated-entries conn table-name :status-org-uuid-publisher [[:published org-uuid author-uuid]] order start direction
-   limit sort-type common/interaction-table-name allowed-boards nil container-last-seen-at list-comment-properties nil {:count count :container-id container-id})))
+   {:pre [(db-common/conn? conn)
+          (#{:desc :asc} order)
+          (#{:before :after} direction)
+          (integer? limit)
+          (#{:recent-activity :recently-posted} sort-type)]}
+   (log-query-time "list-entries-by-org-author, start")
+   (let [result (storage-db-common/read-paginated-entries conn table-name :status-org-uuid-publisher [[:published org-uuid author-uuid]] order start direction
+                                                          limit sort-type common/interaction-table-name allowed-boards nil container-last-seen-at
+                                                          list-comment-properties nil {:count count :container-id container-id})]
+     (log-query-time "list-entries-by-org-author, finish")
+     result)))
 
 (schema/defn ^:always-validate list-drafts-by-org-author
   "

  [conn uuid :- lib-schema/UniqueID entry]
  {:pre [(db-common/conn? conn)
         (map? entry)]}
  (when-let [original-entry (get-entry conn uuid)]
    (update-entry conn entry original-entry (db-common/current-timestamp))))


            [oc.lib.text :as oc-str]
            [oc.storage.resources.common :as common]
            [oc.storage.resources.board :as board-res]))

(defn- log-query-time
  "Log the current time, the timestamp is in nanoseconds, 1/1000000000 to get seconds."
  [step]
  (timbre/info (str "StorageQueryTiming, " step ", " (. System (nanoTime)))))

(def temp-uuid "9999-9999-9999")

