fixed bug in issue #77

2015-11-03 23:32:28 +01:00 · 2015-11-03 23:32:28 +01:00 · fa8cc79fa5
commit fa8cc79fa5
parent fdfe41ac4a
31 changed files with 1 additions and 1 deletions
--- a/Application.hs
+++ b/Application.hs
--- a/Foundation.hs
+++ b/Foundation.hs
--- a/Handler/Avatar.hs
+++ b/Handler/Avatar.hs
--- a/Handler/Barcode.hs
+++ b/Handler/Barcode.hs
--- a/Handler/Buy.hs
+++ b/Handler/Buy.hs
--- a/Handler/CashCheck.hs
+++ b/Handler/CashCheck.hs
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
--- a/Handler/Journal.hs
+++ b/Handler/Journal.hs
--- a/Handler/Modify.hs
+++ b/Handler/Modify.hs
--- a/Handler/NewUser.hs
+++ b/Handler/NewUser.hs
@ -102,7 +102,7 @@ postModifyUserR uId = do
        $ modifyUserForm user bs
      case res of
        FormSuccess uc -> do
-          namesakes <- runDB $ selectList [UserIdent ==. userConfIdent uc] []
+          namesakes <- runDB $ selectList [UserIdent ==. userConfIdent uc, UserId !=. uId] []
          if null namesakes
            then do
              runDB $ update uId
--- a/Handler/Payout.hs
+++ b/Handler/Payout.hs
--- a/Handler/Restock.hs
+++ b/Handler/Restock.hs
--- a/Handler/Select.hs
+++ b/Handler/Select.hs
--- a/Handler/Summary.hs
+++ b/Handler/Summary.hs
--- a/Handler/Supplier.hs
+++ b/Handler/Supplier.hs
--- a/Handler/SupplierActions.hs
+++ b/Handler/SupplierActions.hs
--- a/Handler/Transfer.hs
+++ b/Handler/Transfer.hs
--- a/Import.hs
+++ b/Import.hs
--- a/Import/NoFoundation.hs
+++ b/Import/NoFoundation.hs
--- a/LICENSE.md
+++ b/LICENSE.md
--- a/Model.hs
+++ b/Model.hs
--- a/README.md
+++ b/README.md
--- a/Settings.hs
+++ b/Settings.hs
--- a/Settings/StaticFiles.hs
+++ b/Settings/StaticFiles.hs
--- a/app/DevelMain.hs
+++ b/app/DevelMain.hs
--- a/app/devel.hs
+++ b/app/devel.hs
--- a/app/main.hs
+++ b/app/main.hs
--- a/test/Spec.hs
+++ b/test/Spec.hs
--- a/test/TestImport.hs
+++ b/test/TestImport.hs
--- a/yammat.cabal
+++ b/yammat.cabal