🐛 Fix shared keys init should be by keywords (2) (#8230)

CHANGES.md

@@ -31,7 +31,6 @@
 - Fix unhandled exception on open-new-window helper [Github #7787](https://github.com/penpot/penpot/issues/7787)
 - Fix exception on uploading large fonts [Github #8135](https://github.com/penpot/penpot/pull/8135)
 - Fix boolean operators in menu for boards [Taiga #13174](https://tree.taiga.io/project/penpot/issue/13174)
-- Fix viewer can update library [Taiga #13186](https://tree.taiga.io/project/penpot/issue/13186)
 
 ## 2.13.0 (Unreleased)
 

backend/src/app/http/middleware.clj

@@ -305,7 +305,7 @@
     (fn [request]
       (if-let [[key-id key] (some-> (yreq/get-header request "x-shared-key")
                                     (str/split #"\s+" 2))]
-        (let [key-id (str/lower key-id)]
+        (let [key-id (-> key-id str/lower keyword)]
           (if (and (string? key)
                    (contains? keys key-id)
                    (= key (get keys key-id)))

backend/test/backend_tests/http_middleware_test.clj

@@ -86,7 +86,7 @@
 (t/deftest shared-key-auth
   (let [handler (#'app.http.middleware/wrap-shared-key-auth
                  (fn [req] {::yres/status 200})
-                 {"test1" "secret-key"})]
+                 {:test1 "secret-key"})]
 
     (let [response (handler (->DummyRequest {} {}))]
       (t/is (= 403 (::yres/status response))))

frontend/src/app/main/data/workspace/libraries.cljs

@@ -1205,7 +1205,6 @@
             file         (dsh/lookup-file state file-id)
             file-data    (get file :data)
             ignore-until (get file :ignore-sync-until)
-            permissions (:permissions state)
 
             libraries-need-sync
             (->> (vals (get state :files))
@@ -1225,8 +1224,7 @@
             do-dismiss
             #(st/emit! ignore-sync (ntf/hide))]
 
-        (when (and (:can-edit permissions)
-                   (seq libraries-need-sync))
+        (when (seq libraries-need-sync)
           (rx/of (ntf/dialog
                   :content (tr "workspace.updates.there-are-updates")
                   :controls :inline-actions