nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

GET Barcode

Browse source
This commit is contained in:
Astro 2015-07-21 01:42:52 +02:00
parent 5b444ce17e
commit 5d160ab8c5
4 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Handler/Barcode.hs
View file

@ -6,8 +6,8 @@ import qualified Data.Text as T
import Text.Blaze.Internal import Text.Blaze.Internal
import Text.Shakespeare.Text import Text.Shakespeare.Text
postHomeBarcodeR :: Handler Html getHomeBarcodeR :: Handler Html
postHomeBarcodeR = return mempty getHomeBarcodeR = return mempty
postSelectBarcodeR :: UserId -> Handler Html getSelectBarcodeR :: UserId -> Handler Html
postSelectBarcodeR uId = return mempty getSelectBarcodeR uId = return mempty

4
config/routes
View file

@ -30,5 +30,5 @@
/avatar/#AvatarId/modify ModifyAvatarR GET POST /avatar/#AvatarId/modify ModifyAvatarR GET POST
/avatar/#AvatarId/delete AvatarDeleteR GET /avatar/#AvatarId/delete AvatarDeleteR GET
/newavatar NewAvatarR GET POST /newavatar NewAvatarR GET POST
/barcode HomeBarcodeR POST /barcode HomeBarcodeR GET
/user/#UserId/barcode SelectBarcodeR POST /user/#UserId/barcode SelectBarcodeR GET

2
templates/home.hamlet
View file

@ -24,5 +24,5 @@ $forall (Entity uId user) <- users
<a href=@{ReactivateR}> <a href=@{ReactivateR}>
<p>_{MsgReactivateOldUser} <p>_{MsgReactivateOldUser}
<form action=@{HomeBarcodeR} method=POST> <form action=@{HomeBarcodeR} method=GET>
<input type=hidden #barcodeInput name=barcode> <input type=hidden #barcodeInput name=barcode>

2
templates/select.hamlet
View file

@ -26,5 +26,5 @@ $forall (Entity bId bev) <- beverages
<a href=@{BuyR uId bId}> <a href=@{BuyR uId bId}>
<p>#{beverageIdent bev} <p>#{beverageIdent bev}
<form action=@{SelectBarcodeR uId} method=POST> <form action=@{SelectBarcodeR uId} method=GET>
<input type=hidden #barcodeInput name=barcode> <input type=hidden #barcodeInput name=barcode>