More Checkout payment options

[bpt/portal.git] / app.sml

diff --git a/app.sml b/app.sml
index 6d603ea..40c4389 100644 (file)
--- 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,11 @@ fun add app =
        TextIO.closeOut outf
     end
 
+fun add app =
+    ignore (C.dml (getDb ()) ($`UPDATE MemberApp
+                               SET status = 4
+                               WHERE id = ^(C.intToSql app)`))
+
 fun welcome app =
     let
        val app = lookupApp app