X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/64ec9551fc56c42188e195cbbe24c79ad18b293f..0b4db14f7226c2e419320aa1a5140056038ba0c3:/app.sml?ds=sidebyside

diff --git a/app.sml b/app.sml
index 40c4389..aa9fb15 100644
--- a/app.sml
+++ b/app.sml
@@ -135,9 +135,14 @@ fun preAdd app =
     end
 
 fun add app =
-    ignore (C.dml (getDb ()) ($`UPDATE MemberApp
-				SET status = 4
-				WHERE id = ^(C.intToSql 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