From 6b8e40948763b4b6307b7f0cc523e47ab011d79b Mon Sep 17 00:00:00 2001 From: adamch Date: Thu, 22 Nov 2007 22:37:30 +0000 Subject: [PATCH] Copy application payment service addresses into permanent user record --- init.sml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/init.sml b/init.sml index 4db7408..e01df22 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 app = ^(C.intToSql app)), + (SELECT checkout FROM MemberApp WHERE app = ^(C.intToSql app)))`); id end -- 2.20.1