ruling out seperator string as barcode

This commit is contained in:
nek0 2015-07-22 07:01:34 +02:00
parent 802f9d775f
commit ddfa7957c4

View file

@ -123,7 +123,7 @@ handleGetParam Nothing _ =
return () return ()
handleGetParam (Just b) eub = do handleGetParam (Just b) eub = do
f <- return $ T.filter C.isAlphaNum b f <- return $ T.filter C.isAlphaNum b
case (T.length f) > 0 of case (T.length f) > 0 && b /= ", " of
True -> do True -> do
e <- runDB $ getBy $ UniqueBarcode f e <- runDB $ getBy $ UniqueBarcode f
case e of case e of