list-excerpt.txt

Brown, Sylvia (sbrown)
Brown, Nathan (wnkb)
Brown, Araina (arabrown)
Brown, Audrey (abrown)

remotes.clj

(defremote list-subordinate-users [show-inactive]
  (let [cu (current-user)]
    (schema/list-subordinate-users (:subordinate-groups cu)
                                   show-inactive
                                   (admin? cu))))

schema.clj

(defn list-subordinate-users [subs & [show-inactive show-all]]
  (select employee
          (fields :id :firstname :lastname :username)
          (where (if-not show-all
                   {:id [in (subselect
                             employee-group
                             (fields :employee_id)
                             (where {:group_id [in (map :id subs)]}))]}
                   {:id [> 0]}))
          (order :lastname :asc :firstname :asc :username :asc)))