In C2S Offer{Ticket} on local project, insert a TicketUnderProject record

2020-02-23 15:38:22 +00:00 · 2020-02-23 15:38:22 +00:00 · ca0c7124c1
commit ca0c7124c1
parent f6903364f4
1 changed files with 6 additions and 2 deletions
--- a/src/Vervis/API.hs
+++ b/src/Vervis/API.hs
@ -1140,16 +1140,20 @@ offerTicketC shrUser summary audience offer@(Offer ticket uTarget) = runExceptT
                    , localTicketDiscuss   = did
                    , localTicketFollowers = fsid
                    }
-                insert_ TicketProjectLocal
+                tplid <- insert TicketProjectLocal
                    { ticketProjectLocalTicket  = tid
                    , ticketProjectLocalProject = jid
                    , ticketProjectLocalAccept  = obiidAccept
                    }
-                insert_ TicketAuthorLocal
+                talid <- insert TicketAuthorLocal
                    { ticketAuthorLocalTicket = ltid
                    , ticketAuthorLocalAuthor = pidAuthor
                    , ticketAuthorLocalOpen   = obiid
                    }
+                insert_ TicketUnderProject
+                    { ticketUnderProjectProject = tplid
+                    , ticketUnderProjectAuthor  = talid
+                    }
                --insertMany_ $ map (TicketDependency tid) tidsDeps
                -- insert_ $ Follow pidAuthor fsid False True
                return ltid