Add history version days for subscriptions (#6571)

This commit is contained in:
Marina López 2025-05-28 10:49:53 +02:00 committed by GitHub
parent e9edebbbb5
commit f84ffc3562
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -33,7 +33,13 @@
(def versions
(l/derived :workspace-versions st/state))
(def versions-stored-days 7)
(defn get-versions-stored-days
[team]
(let [subscription-name (-> team :subscription :type)]
(cond
(= subscription-name "unlimited") 30
(= subscription-name "enterprise") 90
:else 7)))
(defn group-snapshots
[data]
@ -206,6 +212,7 @@
[]
(let [profiles (mf/deref refs/profiles)
profile (mf/deref refs/profile)
team (mf/deref refs/team)
expanded (mf/use-state #{})
@ -358,7 +365,7 @@
nil))])
[:> cta* {:title (tr "workspace.versions.warning.text" versions-stored-days)}
[:> cta* {:title (tr "workspace.versions.warning.text" (get-versions-stored-days team))}
[:> i18n/tr-html*
{:tag-name "div"
:class (stl/css :cta)