X-Git-Url: https://git.hcoop.net/hcoop/portal.git/blobdiff_plain/96bd398ee746f9f2975bc06b24fcbe7e430164fb..10e55875c83d1d44a0b8d31ff1e49cfec843e9a2:/app.sml

diff --git a/app.sml b/app.sml
index 6d603ea..aa9fb15 100644
--- a/app.sml
+++ b/app.sml
@@ -120,14 +120,9 @@ fun approve (app, msg) =
     end
 
 fun preAdd app =
-    ignore (C.dml (getDb ()) ($`UPDATE MemberApp
-				SET status = 5
-				WHERE id = ^(C.intToSql app)`))
-
-fun add app =
     let
 	val _ = C.dml (getDb ()) ($`UPDATE MemberApp
-				    SET status = 4
+				    SET status = 5
 				    WHERE id = ^(C.intToSql app)`)
 
 	val app = lookupApp app
@@ -139,6 +134,16 @@ fun add app =
 	TextIO.closeOut outf
     end
 
+fun add app =
+    let
+	val appR = lookupApp app
+    in
+	ignore (C.dml (getDb ()) ($`UPDATE MemberApp
+				    SET status = 4
+				    WHERE id = ^(C.intToSql app)`));
+	OS.FileSys.remove (Config.passwordFiles ^ #name appR)
+    end
+
 fun welcome app =
     let
     	val app = lookupApp app