Rename TicketDepR to TicketDepOldR; we're going to use TicketDepR in a new way
This commit is contained in:
parent
d2d51cb45a
commit
828e015c54
4 changed files with 11 additions and 11 deletions
|
@ -145,7 +145,7 @@
|
||||||
/s/#ShrIdent/p/#PrjIdent/t/#Int/d/#MessageKeyHashid/reply TicketReplyR GET
|
/s/#ShrIdent/p/#PrjIdent/t/#Int/d/#MessageKeyHashid/reply TicketReplyR GET
|
||||||
/s/#ShrIdent/p/#PrjIdent/t/#Int/deps TicketDepsR GET POST
|
/s/#ShrIdent/p/#PrjIdent/t/#Int/deps TicketDepsR GET POST
|
||||||
/s/#ShrIdent/p/#PrjIdent/t/#Int/deps/!new TicketDepNewR GET
|
/s/#ShrIdent/p/#PrjIdent/t/#Int/deps/!new TicketDepNewR GET
|
||||||
/s/#ShrIdent/p/#PrjIdent/t/#Int/deps/#Int TicketDepR POST DELETE
|
/s/#ShrIdent/p/#PrjIdent/t/#Int/deps/#Int TicketDepOldR POST DELETE
|
||||||
/s/#ShrIdent/p/#PrjIdent/t/#Int/rdeps TicketReverseDepsR GET
|
/s/#ShrIdent/p/#PrjIdent/t/#Int/rdeps TicketReverseDepsR GET
|
||||||
/s/#ShrIdent/p/#PrjIdent/t/#Int/participants TicketParticipantsR GET
|
/s/#ShrIdent/p/#PrjIdent/t/#Int/participants TicketParticipantsR GET
|
||||||
/s/#ShrIdent/p/#PrjIdent/t/#Int/team TicketTeamR GET
|
/s/#ShrIdent/p/#PrjIdent/t/#Int/team TicketTeamR GET
|
||||||
|
|
|
@ -356,7 +356,7 @@ instance Yesod App where
|
||||||
(TicketReplyR _ _ _ _ , _ ) -> personAny
|
(TicketReplyR _ _ _ _ , _ ) -> personAny
|
||||||
(TicketDepsR s j _ , True) -> projOp ProjOpAddTicketDep s j
|
(TicketDepsR s j _ , True) -> projOp ProjOpAddTicketDep s j
|
||||||
(TicketDepNewR s j _ , _ ) -> projOp ProjOpAddTicketDep s j
|
(TicketDepNewR s j _ , _ ) -> projOp ProjOpAddTicketDep s j
|
||||||
(TicketDepR s j _ _ , True) -> projOp ProjOpRemoveTicketDep s j
|
(TicketDepOldR s j _ _ , True) -> projOp ProjOpRemoveTicketDep s j
|
||||||
_ -> return Authorized
|
_ -> return Authorized
|
||||||
where
|
where
|
||||||
nobody :: Handler AuthResult
|
nobody :: Handler AuthResult
|
||||||
|
@ -913,7 +913,7 @@ instance YesodBreadcrumbs App where
|
||||||
TicketDepNewR shr prj num -> ( "New dependency"
|
TicketDepNewR shr prj num -> ( "New dependency"
|
||||||
, Just $ TicketDepsR shr prj num
|
, Just $ TicketDepsR shr prj num
|
||||||
)
|
)
|
||||||
TicketDepR shr prj pnum cnum -> ( T.pack $ '#' : show cnum
|
TicketDepOldR shr prj pnum cnum -> ( T.pack $ '#' : show cnum
|
||||||
, Just $ TicketDepsR shr prj pnum
|
, Just $ TicketDepsR shr prj pnum
|
||||||
)
|
)
|
||||||
TicketReverseDepsR shr prj num -> ( "Dependants"
|
TicketReverseDepsR shr prj num -> ( "Dependants"
|
||||||
|
|
|
@ -45,8 +45,8 @@ module Vervis.Handler.Ticket
|
||||||
, getTicketDepsR
|
, getTicketDepsR
|
||||||
, postTicketDepsR
|
, postTicketDepsR
|
||||||
, getTicketDepNewR
|
, getTicketDepNewR
|
||||||
, postTicketDepR
|
, postTicketDepOldR
|
||||||
, deleteTicketDepR
|
, deleteTicketDepOldR
|
||||||
, getTicketReverseDepsR
|
, getTicketReverseDepsR
|
||||||
, getTicketParticipantsR
|
, getTicketParticipantsR
|
||||||
, getTicketTeamR
|
, getTicketTeamR
|
||||||
|
@ -915,15 +915,15 @@ getTicketDepNewR shr prj num = do
|
||||||
((_result, widget), enctype) <- runFormPost $ ticketDepForm jid tid
|
((_result, widget), enctype) <- runFormPost $ ticketDepForm jid tid
|
||||||
defaultLayout $(widgetFile "ticket/dep/new")
|
defaultLayout $(widgetFile "ticket/dep/new")
|
||||||
|
|
||||||
postTicketDepR :: ShrIdent -> PrjIdent -> Int -> Int -> Handler Html
|
postTicketDepOldR :: ShrIdent -> PrjIdent -> Int -> Int -> Handler Html
|
||||||
postTicketDepR shr prj pnum cnum = do
|
postTicketDepOldR shr prj pnum cnum = do
|
||||||
mmethod <- lookupPostParam "_method"
|
mmethod <- lookupPostParam "_method"
|
||||||
case mmethod of
|
case mmethod of
|
||||||
Just "DELETE" -> deleteTicketDepR shr prj pnum cnum
|
Just "DELETE" -> deleteTicketDepOldR shr prj pnum cnum
|
||||||
_ -> notFound
|
_ -> notFound
|
||||||
|
|
||||||
deleteTicketDepR :: ShrIdent -> PrjIdent -> Int -> Int -> Handler Html
|
deleteTicketDepOldR :: ShrIdent -> PrjIdent -> Int -> Int -> Handler Html
|
||||||
deleteTicketDepR shr prj pnum cnum = do
|
deleteTicketDepOldR shr prj pnum cnum = do
|
||||||
runDB $ do
|
runDB $ do
|
||||||
Entity sid _ <- getBy404 $ UniqueSharer shr
|
Entity sid _ <- getBy404 $ UniqueSharer shr
|
||||||
Entity jid _ <- getBy404 $ UniqueProject prj sid
|
Entity jid _ <- getBy404 $ UniqueProject prj sid
|
||||||
|
|
|
@ -32,7 +32,7 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||||
#{show status}
|
#{show status}
|
||||||
$if forward
|
$if forward
|
||||||
<td>
|
<td>
|
||||||
^{buttonW DELETE "Remove" (TicketDepR shr prj num number)}
|
^{buttonW DELETE "Remove" (TicketDepOldR shr prj num number)}
|
||||||
|
|
||||||
$if forward
|
$if forward
|
||||||
<p>
|
<p>
|
||||||
|
|
Loading…
Reference in a new issue