From fa8cc79fa50e544f94b66063d90b790711b308df Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 3 Nov 2015 23:32:28 +0100 Subject: [PATCH] fixed bug in issue #77 --- Application.hs | 0 Foundation.hs | 0 Handler/Avatar.hs | 0 Handler/Barcode.hs | 0 Handler/Buy.hs | 0 Handler/CashCheck.hs | 0 Handler/Common.hs | 0 Handler/Home.hs | 0 Handler/Journal.hs | 0 Handler/Modify.hs | 0 Handler/NewUser.hs | 2 +- Handler/Payout.hs | 0 Handler/Restock.hs | 0 Handler/Select.hs | 0 Handler/Summary.hs | 0 Handler/Supplier.hs | 0 Handler/SupplierActions.hs | 0 Handler/Transfer.hs | 0 Import.hs | 0 Import/NoFoundation.hs | 0 LICENSE.md | 0 Model.hs | 0 README.md | 0 Settings.hs | 0 Settings/StaticFiles.hs | 0 app/DevelMain.hs | 0 app/devel.hs | 0 app/main.hs | 0 test/Spec.hs | 0 test/TestImport.hs | 0 yammat.cabal | 0 31 files changed, 1 insertion(+), 1 deletion(-) mode change 100644 => 100755 Application.hs mode change 100644 => 100755 Foundation.hs mode change 100644 => 100755 Handler/Avatar.hs mode change 100644 => 100755 Handler/Barcode.hs mode change 100644 => 100755 Handler/Buy.hs mode change 100644 => 100755 Handler/CashCheck.hs mode change 100644 => 100755 Handler/Common.hs mode change 100644 => 100755 Handler/Home.hs mode change 100644 => 100755 Handler/Journal.hs mode change 100644 => 100755 Handler/Modify.hs mode change 100644 => 100755 Handler/NewUser.hs mode change 100644 => 100755 Handler/Payout.hs mode change 100644 => 100755 Handler/Restock.hs mode change 100644 => 100755 Handler/Select.hs mode change 100644 => 100755 Handler/Summary.hs mode change 100644 => 100755 Handler/Supplier.hs mode change 100644 => 100755 Handler/SupplierActions.hs mode change 100644 => 100755 Handler/Transfer.hs mode change 100644 => 100755 Import.hs mode change 100644 => 100755 Import/NoFoundation.hs mode change 100644 => 100755 LICENSE.md mode change 100644 => 100755 Model.hs mode change 100644 => 100755 README.md mode change 100644 => 100755 Settings.hs mode change 100644 => 100755 Settings/StaticFiles.hs mode change 100644 => 100755 app/DevelMain.hs mode change 100644 => 100755 app/devel.hs mode change 100644 => 100755 app/main.hs mode change 100644 => 100755 test/Spec.hs mode change 100644 => 100755 test/TestImport.hs mode change 100644 => 100755 yammat.cabal diff --git a/Application.hs b/Application.hs old mode 100644 new mode 100755 diff --git a/Foundation.hs b/Foundation.hs old mode 100644 new mode 100755 diff --git a/Handler/Avatar.hs b/Handler/Avatar.hs old mode 100644 new mode 100755 diff --git a/Handler/Barcode.hs b/Handler/Barcode.hs old mode 100644 new mode 100755 diff --git a/Handler/Buy.hs b/Handler/Buy.hs old mode 100644 new mode 100755 diff --git a/Handler/CashCheck.hs b/Handler/CashCheck.hs old mode 100644 new mode 100755 diff --git a/Handler/Common.hs b/Handler/Common.hs old mode 100644 new mode 100755 diff --git a/Handler/Home.hs b/Handler/Home.hs old mode 100644 new mode 100755 diff --git a/Handler/Journal.hs b/Handler/Journal.hs old mode 100644 new mode 100755 diff --git a/Handler/Modify.hs b/Handler/Modify.hs old mode 100644 new mode 100755 diff --git a/Handler/NewUser.hs b/Handler/NewUser.hs old mode 100644 new mode 100755 index 27a1950..2a6a1af --- 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 diff --git a/Handler/Payout.hs b/Handler/Payout.hs old mode 100644 new mode 100755 diff --git a/Handler/Restock.hs b/Handler/Restock.hs old mode 100644 new mode 100755 diff --git a/Handler/Select.hs b/Handler/Select.hs old mode 100644 new mode 100755 diff --git a/Handler/Summary.hs b/Handler/Summary.hs old mode 100644 new mode 100755 diff --git a/Handler/Supplier.hs b/Handler/Supplier.hs old mode 100644 new mode 100755 diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs old mode 100644 new mode 100755 diff --git a/Handler/Transfer.hs b/Handler/Transfer.hs old mode 100644 new mode 100755 diff --git a/Import.hs b/Import.hs old mode 100644 new mode 100755 diff --git a/Import/NoFoundation.hs b/Import/NoFoundation.hs old mode 100644 new mode 100755 diff --git a/LICENSE.md b/LICENSE.md old mode 100644 new mode 100755 diff --git a/Model.hs b/Model.hs old mode 100644 new mode 100755 diff --git a/README.md b/README.md old mode 100644 new mode 100755 diff --git a/Settings.hs b/Settings.hs old mode 100644 new mode 100755 diff --git a/Settings/StaticFiles.hs b/Settings/StaticFiles.hs old mode 100644 new mode 100755 diff --git a/app/DevelMain.hs b/app/DevelMain.hs old mode 100644 new mode 100755 diff --git a/app/devel.hs b/app/devel.hs old mode 100644 new mode 100755 diff --git a/app/main.hs b/app/main.hs old mode 100644 new mode 100755 diff --git a/test/Spec.hs b/test/Spec.hs old mode 100644 new mode 100755 diff --git a/test/TestImport.hs b/test/TestImport.hs old mode 100644 new mode 100755 diff --git a/yammat.cabal b/yammat.cabal old mode 100644 new mode 100755