X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/9953bee7978169008d661880ebe93ffa14028401..a483e18c6bb5943a39a3bd67abe4d9a0adfcf76a:/init.sml

diff --git a/init.sml b/init.sml
index 4db7408..cd066b1 100644
--- a/init.sml
+++ b/init.sml
@@ -128,9 +128,11 @@ fun addUser (name, rname, bal, app, shares) =
 	val db = getDb ()
 	val id = nextSeq (db, "WebUserSeq")
     in
-	C.dml db ($`INSERT INTO WebUser (id, name, rname, bal, joined, app, shares)
+	C.dml db ($`INSERT INTO WebUser (id, name, rname, bal, joined, app, shares, paypal, checkout)
 		    VALUES (^(C.intToSql id), ^(C.stringToSql name), ^(C.stringToSql rname), ^(C.intToSql bal),
-			    CURRENT_TIMESTAMP, ^(C.intToSql app), ^(C.intToSql shares))`);
+			    CURRENT_TIMESTAMP, ^(C.intToSql app), ^(C.intToSql shares),
+			    (SELECT paypal FROM MemberApp WHERE id = ^(C.intToSql app)),
+			    (SELECT checkout FROM MemberApp WHERE id = ^(C.intToSql app)))`);
 	id
     end