workspace filter state fixes

core · Jun 10, 2016 · 982e776 · 982e776
1 parent 200c407
commit 982e776
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/src/cljs/ulysses/handlers.cljs b/src/cljs/ulysses/handlers.cljs
@@ -25,7 +25,8 @@
                                    update-db-pagination
                                    verify-user-poll-response
                                    debounce-request-grant-ops
-                                   debounce-request-faculties-pool]]))
+                                   debounce-request-faculties-pool
+                                   validate-builder-filters]]))
 
 ;; ----------------------------------------------------------------------------
 ;; general
@@ -252,10 +253,12 @@
                   (select-keys [:id :name
                                 :grant-op-id :user-id
                                 :updated-at :created-at
-                                :faculties])
+                                :faculties :filters])
                   (update :filters
                     (fn [jstr]
-                      (json->clj jstr :keywords)))
+                      (-> jstr
+                          (json->clj :keywords)
+                          (update :faculty-title-set set))))
                   (update :faculties
                     (fn [faculties]
                       (map :id faculties))))

diff --git a/src/cljs/ulysses/utils.cljs b/src/cljs/ulysses/utils.cljs
@@ -337,7 +337,7 @@
   (-> response :user :netid string/blank? not))
 
 (defn validate-builder-filters
-  [{:keys [faculty-title-set faculty-years-uconn metrics :as filters]}]
+  [{:keys [faculty-title-set faculty-years-uconn metrics] :as filters}]
   (and
     ; general
     (map? filters)