fix: check page-name to be a string

Related to #2525

src/main/frontend/components/right_sidebar.cljs

@@ -112,7 +112,10 @@
 
     :page
     (let [page-name (or (:block/name block-data)
-                        db-id)]
+                        db-id)
+          page-name (if (integer? db-id)
+                      (:block/name (db/entity db-id))
+                      page-name)]
       [[:a.page-title {:href     (rfe/href :page {:name page-name})
             :on-click (fn [e]
                         (when (gobj/get e "shiftKey")

src/main/frontend/db/model.cljs

@@ -767,7 +767,7 @@
 
 (defn get-page-original-name
   [page-name]
-  (when page-name
+  (when (string? page-name)
     (let [page (db-utils/pull [:block/name (string/lower-case page-name)])]
       (or (:block/original-name page)
           (:block/name page)))))