barcode: switch to location with user

Application.hs

@@ -36,6 +36,7 @@ import Handler.Summary
 import Handler.Modify
 import Handler.CashCheck
 import Handler.Avatar
+import Handler.Barcode
 
 -- This line actually creates our YesodDispatch instance. It is the second half
 -- of the call to mkYesodData which occurs in Foundation.hs. Please see the

Handler/Barcode.hs

@@ -0,0 +1,10 @@
+module Handler.Barcode where
+
+import Import
+import Handler.Common
+import qualified Data.Text as T
+import Text.Blaze.Internal
+import Text.Shakespeare.Text
+
+getBarcodeR :: UserId -> Text -> Handler Html
+getBarcodeR uId barcode = undefined

config/routes

@@ -30,3 +30,4 @@
 /avatar/#AvatarId/modify	ModifyAvatarR		GET POST
 /avatar/#AvatarId/delete	AvatarDeleteR		GET
 /newavatar			NewAvatarR		GET POST
+/user/#UserId/barcode/#Text	BarcodeR		GET

static/js/barcode.js

@@ -11,7 +11,10 @@ function showBarcode(text) {
 function barcodeKeyPress(event) {
     var key = String.fromCharCode(event.charCode)
     if (event.keyCode === 13) {
-        // window.location = "" + barcodeBuf
+        var uid = document.getElementById('uid').getAttribute('value')
+        if (uid) {
+            window.location = "/user/" + encodeURIComponent(uid) + "/barcode/" + encodeURIComponent(barcodeBuf)
+        }
         barcodeBuf = ""
         event.preventDefault()
     } else {

templates/select.hamlet

@@ -25,3 +25,5 @@ $forall (Entity bId bev) <- beverages
     $else
       <a href=@{BuyR uId bId}>
         <p>#{beverageIdent bev}
+
+<input type=hidden id=uid value=#{toPathPiece uId}>

yammat.cabal

@@ -31,6 +31,7 @@ library
                      Handler.Modify
                      Handler.CashCheck
                      Handler.Avatar
+                     Handler.Barcode
 
     if flag(dev) || flag(library-only)
         cpp-options:   -DDEVELOPMENT