GET Barcode

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

View file

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

View file

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

View file

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

View file

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