X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/6b8e40948763b4b6307b7f0cc523e47ab011d79b..ace1af387535e3be6aff8e253930fcc2d9ecce25:/init.sml

diff --git a/init.sml b/init.sml
index e01df22..cd066b1 100644
--- a/init.sml
+++ b/init.sml
@@ -131,8 +131,8 @@ fun addUser (name, rname, bal, 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),
-			    (SELECT paypal FROM MemberApp WHERE app = ^(C.intToSql app)),
-			    (SELECT checkout FROM MemberApp WHERE app = ^(C.intToSql app)))`);
+			    (SELECT paypal FROM MemberApp WHERE id = ^(C.intToSql app)),
+			    (SELECT checkout FROM MemberApp WHERE id = ^(C.intToSql app)))`);
 	id
     end