DB: Remote Ticket.status field

This commit is contained in:
fr33domlover 2022-10-20 15:41:47 +00:00
parent b0e4656723
commit fa7f765e2e
6 changed files with 8 additions and 6 deletions

View file

@ -708,7 +708,6 @@ applyC (Entity senderPersonID senderPerson) senderActor maybeCap localRecips rem
{ ticketResolveLocalTicket = trid
, ticketResolveLocalActivity = applyID
}
update ticketID [TicketStatus =. TSClosed]
prepareAccept luApply actors stages = do
encodeRouteHome <- getEncodeRouteHome
@ -2354,7 +2353,6 @@ offerTicketC (Entity senderPersonID senderPerson) senderActor maybeCap localReci
, ticketTitle = title
, ticketSource = source
, ticketDescription = desc
, ticketStatus = TSNew
, ticketDiscuss = did
, ticketFollowers = fsid
, ticketAccept = acceptID

View file

@ -425,7 +425,6 @@ deckOfferTicketF now recipDeckHash author body mfwd luOffer ticket uTarget = do
, ticketTitle = title
, ticketSource = source
, ticketDescription = desc
, ticketStatus = TSNew
, ticketDiscuss = did
, ticketFollowers = fsid
, ticketAccept = acceptID
@ -734,7 +733,6 @@ loomOfferTicketF now recipLoomHash author body mfwd luOffer ticket uTarget = do
, ticketTitle = title
, ticketSource = source
, ticketDescription = desc
, ticketStatus = TSNew
, ticketDiscuss = did
, ticketFollowers = fsid
, ticketAccept = acceptID
@ -1256,7 +1254,6 @@ loomApplyF now recipLoomHash author body mfwd luApply apply = (,Nothing) <$> do
, ticketResolveRemoteActivity = applyID
, ticketResolveRemoteActor = remoteAuthorId author
}
update ticketID [TicketStatus =. TSClosed]
prepareAccept clothID = do
encodeRouteHome <- getEncodeRouteHome

View file

@ -356,10 +356,13 @@ getClothR loomHash clothHash = do
cIrrelevant <- newIdent
let relevant filt =
bool cIrrelevant cRelevant $
{-
case ticketStatus ticket of
TSNew -> wffNew filt
TSTodo -> wffTodo filt
TSClosed -> wffClosed filt
-}
True
let followButton =
followW
(ClothFollowR loomHash clothHash)

View file

@ -291,10 +291,13 @@ getTicketR deckHash ticketHash = do
cIrrelevant <- newIdent
let relevant filt =
bool cIrrelevant cRelevant $
{-
case ticketStatus ticket of
TSNew -> wffNew filt
TSTodo -> wffTodo filt
TSClosed -> wffClosed filt
-}
True
let followButton =
followW
(TicketFollowR deckHash ticketHash)

View file

@ -2931,6 +2931,8 @@ changes hLocal ctx =
"CollabFulfillsInvite"
-- 528
, addUnique' "CollabRecipRemoteAccept" "Invite" ["invite"]
-- 529
, removeField "Ticket" "status"
]
migrateDB

View file

@ -395,7 +395,6 @@ Ticket
title Text
source PandocMarkdown
description HTML
status TicketStatus
discuss DiscussionId
followers FollowerSetId
accept OutboxItemId