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 (def versions
(l/derived :workspace-versions st/state)) (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 (defn group-snapshots
[data] [data]
@ -206,6 +212,7 @@
[] []
(let [profiles (mf/deref refs/profiles) (let [profiles (mf/deref refs/profiles)
profile (mf/deref refs/profile) profile (mf/deref refs/profile)
team (mf/deref refs/team)
expanded (mf/use-state #{}) expanded (mf/use-state #{})
@ -358,7 +365,7 @@
nil))]) 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* [:> i18n/tr-html*
{:tag-name "div" {:tag-name "div"
:class (stl/css :cta) :class (stl/css :cta)