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
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