      (into [] items) ;; Is done, return a vector
      (recur (dec numb) (conj items (get-news-random-single))))))
 
-(defn get-random-name
-  "Gets a random name from the database.
-  If supplied with a collision set, tries up to five times to return a name not in that set."
-  ([]
-   (let [nameMap (get-random-item (query "SELECT * FROM `name` WHERE `name_clearance` = 'U';"))]
-     (str (nameMap :name_first) "-"
-          (nameMap :name_clearance) "-"
-          (nameMap :name_zone))))
-  ([collisionSet]
-   (get-random-name collisionSet 5))
-  ([collisionSet triesRemaining]
-   (let [tempName (get-random-name)]
-     (if (and (some #{tempName} collisionSet)
-              (> triesRemaining 0))
-       (recur collisionSet (dec triesRemaining))
-       tempName)))
-  )

         :subname "//127.0.0.1:3306/hphelper"
         :user "fc"})


(defn get-random-item
  "Gets a random item from a collection. Returns nil if the collection is empty"

     nil
     (nth collection (int (Math/floor (* (Math/random) (count collection))))))))

(defn get-random-name
  "Gets a random name from the database. at a specified clearance level"
  ([]
   (let [nameMap (get-random-item (query "SELECT * FROM `name` WHERE `name_clearance` = 'U';"))]
     (str (nameMap :name_first) "-"
          (nameMap :name_clearance) "-"
          (nameMap :name_zone))))
  )

(defn get-sg-by-id
  "Gets service group by sg_id"
