cgalo5758
3727ff31d8
Add an append-only ledger of entitlement set rule changes with per-pool effect rows, a preview-and-commit rule change flow, and an automatic drain that settles deferred recomputations. Rules gain a tier reduction policy, resource keys declare over-limit behavior, and the materializer now lowers limits when a rule stops applying. Add entitlement set rule change ledger and preview flow Add an append-only ledger of entitlement set rule changes with a preview-and-commit operator flow. Rule writes now go through an enclosed `core.commit_rule_change` function that files an act row and one obligation per carrying pool, with a drain workflow settling deferred recomputations. The preview dry-runs the materializer with a rule overlay and renders per-pool buckets, reduction-policy disclosures, and provider over-limit consequences. Materializing transactions take a shared advisory rendezvous that rule changes hold exclusively, enforced by a possession assertion. Add History and Entitlement changes surfaces, a rule-less warning on five product-selection surfaces, and a `tier_reduction_policy` column that gates FedWiki parking.
38 lines
1.4 KiB
SQL
38 lines
1.4 KiB
SQL
-- name: UpsertBooleanEntitlementGranted :one
|
|
INSERT INTO core.boolean_entitlements (pool_id, resource_key, granted)
|
|
VALUES ($1, $2, TRUE)
|
|
ON CONFLICT (pool_id, resource_key) DO UPDATE SET granted = TRUE
|
|
RETURNING *;
|
|
|
|
-- name: LapseBooleanEntitlement :execrows
|
|
-- Update-only by design: a lapse never creates a row. Absence of a row means
|
|
-- the key was never conferred; granted = FALSE means conferred, then lapsed.
|
|
UPDATE core.boolean_entitlements
|
|
SET granted = FALSE
|
|
WHERE pool_id = $1 AND resource_key = $2;
|
|
|
|
-- name: GetBooleanEntitlementByPoolAndResource :one
|
|
SELECT * FROM core.boolean_entitlements
|
|
WHERE pool_id = $1 AND resource_key = $2;
|
|
|
|
-- name: ListBooleanEntitlementsByPoolID :many
|
|
SELECT * FROM core.boolean_entitlements
|
|
WHERE pool_id = $1
|
|
ORDER BY resource_key ASC;
|
|
|
|
-- name: ListPoolsGrantedBooleanKey :many
|
|
SELECT be.pool_id, rp.org_id, o.name AS org_name
|
|
FROM core.boolean_entitlements be
|
|
JOIN core.resource_pools rp ON rp.pool_id = be.pool_id
|
|
JOIN core.organizations o ON o.org_id = rp.org_id
|
|
WHERE be.resource_key = $1 AND be.granted = TRUE
|
|
ORDER BY o.name ASC, be.pool_id ASC;
|
|
|
|
-- name: ListBooleanEntitlementStateForPools :many
|
|
-- Read-only per-pool boolean state for a batch of pools, the boolean half of
|
|
-- what the preview folds.
|
|
SELECT be.pool_id, be.resource_key, be.granted
|
|
FROM core.boolean_entitlements be
|
|
WHERE be.pool_id = ANY(sqlc.arg(pool_ids)::uuid[])
|
|
ORDER BY be.pool_id ASC, be.resource_key ASC;
|