Fix issue: Ticket table was displaying project sharer instead of ticket author

src/Vervis/Handler/Ticket.hs

@@ -1,6 +1,6 @@
 {- This file is part of Vervis.
  -
- - Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
+ - Written in 2016, 2018 by fr33domlover <fr33domlover@riseup.net>.
  -
  - ♡ Copying is an act of love. Please copy, reuse and share.
  -
@@ -101,7 +101,7 @@ import Vervis.Widget.Sharer (personLinkW)
 import Vervis.Widget.Ticket
 
 getTicketsR :: ShrIdent -> PrjIdent -> Handler Html
-getTicketsR shar proj = do
+getTicketsR shr prj = do
     ((filtResult, filtWidget), filtEnctype) <- runFormGet ticketFilterForm
     let tf =
             case filtResult of
@@ -109,19 +109,21 @@ getTicketsR shar proj = do
                 FormMissing      -> def
                 FormFailure l    ->
                     error $ "Ticket filter form failed: " ++ show l
-    rows <- runDB $ select $ from $ \ (sharer, project, ticket) -> do
+    rows <- runDB $ do
-        where_ $ filterTickets tf ticket $
+        Entity sid _ <- getBy404 $ UniqueSharer shr
-            sharer  ^. SharerIdent   ==. val shar             &&.
+        Entity jid _ <- getBy404 $ UniqueProject prj sid
-            project ^. ProjectSharer ==. sharer ^. SharerId   &&.
+        select $ from $ \ (ticket `InnerJoin` person `InnerJoin` sharer) -> do
-            project ^. ProjectIdent  ==. val proj             &&.
+            on $ person ^. PersonIdent ==. sharer ^. SharerId
-            ticket  ^. TicketProject ==. project ^. ProjectId
+            on $ ticket ^. TicketCreator ==. person ^. PersonId
-        orderBy [asc $ ticket ^. TicketNumber]
+            where_ $ filterTickets tf ticket $
-        return
+                ticket ^. TicketProject ==. val jid
-            ( ticket ^. TicketNumber
+            orderBy [asc $ ticket ^. TicketNumber]
-            , sharer
+            return
-            , ticket ^. TicketTitle
+                ( ticket ^. TicketNumber
-            , ticket ^. TicketStatus
+                , sharer
-            )
+                , ticket ^. TicketTitle
+                , ticket ^. TicketStatus
+                )
     defaultLayout $(widgetFile "ticket/list")
 
 postTicketsR :: ShrIdent -> PrjIdent -> Handler Html

templates/ticket/list.hamlet

@@ -1,6 +1,6 @@
 $# This file is part of Vervis.
 $#
-$# Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
+$# Written in 2016, 2018 by fr33domlover <fr33domlover@riseup.net>.
 $#
 $# ♡ Copying is an act of love. Please copy, reuse and share.
 $#
@@ -13,12 +13,12 @@ $# with this software. If not, see
 $# <http://creativecommons.org/publicdomain/zero/1.0/>.
 
 <p>
-  <a href=@{TicketNewR shar proj}>Create new…
+  <a href=@{TicketNewR shr prj}>Create new…
 
 <p>
-  <a href=@{TicketTreeR shar proj}>View as tree…
+  <a href=@{TicketTreeR shr prj}>View as tree…
 
-<form method=GET action=@{TicketsR shar proj} enctype=#{filtEnctype}>
+<form method=GET action=@{TicketsR shr prj} enctype=#{filtEnctype}>
   ^{filtWidget}
   <input type="submit" value="Filter">
 
@@ -31,10 +31,10 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
   $forall (Value number, Entity _ author, Value title, Value status) <- rows
     <tr>
       <td>
-        <a href=@{TicketR shar proj number}>#{number}
+        <a href=@{TicketR shr prj number}>#{number}
       <td>
         ^{personLinkW author}
       <td>
-        <a href=@{TicketR shar proj number}>#{title}
+        <a href=@{TicketR shr prj number}>#{title}
       <td>
         #{show status}