From 7be17e399998dd47138ad59821dde0447c207b61 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 8 Dec 2007 21:00:07 +0000
Subject: [PATCH] Tweakadeedooda while running through our first real
 application in a while

---
 apps.mlt    | 4 ++--
 init.sml    | 4 ++--
 welcome.txt | 1 +
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/apps.mlt b/apps.mlt
index 00c2cfd..82dccaa 100644
--- a/apps.mlt
+++ b/apps.mlt
@@ -124,7 +124,7 @@ elseif $"add" <> "" then
 	App.add id %>
 
 First, run this on deleuze:
-<blockquote><tt>magic-create-user-wrapper <% #name appl %> "<% #rname appl %>"<% if #forward appl then %> "<% #email appl %>"<% end %></tt></blockquote>
+<blockquote><tt>new-user <% #name appl %> "<% #rname appl %>"<% if #forward appl then %> "<% #email appl %>"<% end %></tt></blockquote>
 
 <form action="users" method="post">
 <input type="hidden" name="app" value="<% #id appl %>">
@@ -201,4 +201,4 @@ end %>
 <% end
 end %>
 
-<% @footer[] %>
\ No newline at end of file
+<% @footer[] %>
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
 
diff --git a/welcome.txt b/welcome.txt
index 06e79db..39384f2 100644
--- a/welcome.txt
+++ b/welcome.txt
@@ -1,3 +1,4 @@
+Bcc: board@hcoop.net
 Subject: Welcome to HCoop!
 From: HCoop Board of Directors <board@hcoop.net>
 
-- 
2.20.1