commence prouct pages

src/Control/Product.hs

@@ -55,14 +55,20 @@ productStockUpdate
   :: Maybe (Int, AuthMethod)
   -> [AmountUpdate]
   -> MateHandler ()
-productStockUpdate (Just _) amoups =
+productStockUpdate (Just (_, method)) amoups =
-  if all ((>= 0) . amountUpdateRealAmount) amoups
+  if method `elem` [PrimaryPass, ChallengeResponse]
-  then do
+  then
-    conn <- asks rsConnection
+    if all ((>= 0) . amountUpdateRealAmount) amoups
-    void $ manualProductAmountUpdate amoups conn
+    then do
+      conn <- asks rsConnection
+      void $ manualProductAmountUpdate amoups conn
+    else
+      throwError $ err400
+        { errBody = "Amounts less than 0 are not acceptable."
+        }
   else
-    throwError $ err400
+    throwError $ err401
-      { errBody = "Amounts less than 0 are not acceptable."
+      { errBody = "Wrong Authentication present."
       }
 productStockUpdate Nothing _ =
   throwError $ err401