Tweakadeedooda while running through our first real application in a while

diff --git a/apps.mlt b/apps.mlt
index 00c2cfd..82dccaa 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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>