fix: Child namespace pages do not show up in hierarchy view if parent

page does not exist

Addresses #3641
This commit is contained in:
Tienson Qin
2022-01-05 00:41:49 +08:00
parent 8cc194ce60
commit 704bcda9ad
8 changed files with 63 additions and 48 deletions

View File

@@ -257,11 +257,11 @@
(when original-page-name
(let [page-name (-> (string/lower-case original-page-name)
(util/page-name-sanity))
day (date/journal-title->int page-name)]
(if day
(let [original-page-name (date/int->journal-title day)]
[original-page-name (string/lower-case original-page-name) day])
[original-page-name page-name day]))))
day (date/journal-title->int page-name)]
(if day
(let [original-page-name (date/int->journal-title day)]
[original-page-name (string/lower-case original-page-name) day])
[original-page-name page-name day]))))
(defn page-name->map
[original-page-name with-id?]