Browse Source

fix: use page's original name in linked references

Tienson Qin 4 years ago
parent
commit
cd33a2e474
1 changed files with 3 additions and 2 deletions
  1. 3 2
      src/main/frontend/components/block.cljs

+ 3 - 2
src/main/frontend/components/block.cljs

@@ -329,7 +329,8 @@
 (rum/defc page-cp
   [{:keys [html-export? label children contents-page?] :as config} page]
   (when-let [page-name (:page/name page)]
-    (let [page (string/lower-case page-name)
+    (let [page-entity page
+          page (string/lower-case page-name)
           redirect-page-name (cond
                                (:page/alias? config)
                                page
@@ -374,7 +375,7 @@
                   (string? label)
                   (not (string/blank? label))) ; alias
            label
-           (get page :page/original-name page-name)))])))
+           (get page-entity :page/original-name page-name)))])))
 
 (rum/defc asset-reference
   [title path]