fix: over sanitized in all-pages

samuelbaizg · Jan 10, 2022 · c2daea7 · c2daea7
1 parent dde13ab
commit c2daea7
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/src/main/frontend/components/block.cljs b/src/main/frontend/components/block.cljs
@@ -375,7 +375,11 @@
 (declare page-reference)
 
 (rum/defc page-inner
-  "all page-names are sanitized except page-name-in-block"
+  "The inner div of page reference component
+   
+   page-name-in-block is the overridable name of the page (legacy)
+
+   All page-names are sanitized except page-name-in-block"
   [config page-name-in-block page-name redirect-page-name page-entity contents-page? children html-export? label]
   (let [tag? (:tag? config)]
     [:a
@@ -421,10 +425,10 @@
          (->elem :span (map-inline config label))
 
          :else
-         (let [page-name (get page-entity :block/original-name page-name)
-               s (if (not= (string/lower-case page-name) page-name-in-block)
-                   page-name-in-block
-                   page-name)]
+         (let [original-name (util/get-page-original-name page-entity)
+               s (if (not= (util/page-name-sanity-lc original-name) page-name-in-block)
+                   page-name-in-block ;; page-name-in-block might be overrided (legacy)
+                   original-name)]
            (if tag? (str "#" s) s))))]))
 
 (rum/defc page-preview-trigger