      nil
      (nth collection (int (Math/floor (* (Math/random) (count collection))))))))
 
-(defn query
-  "Performs the query against the defined database, and logs the query"
-  [& quer]
-  (log/trace "Performing Query: " quer)
-  (jdb/query db quer))
+(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"

         :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"

     (into [] items) ;; Is done, return a vector
     (recur (dec numb) (conj items (get-news-random-single))))))

