New member application e-mails include applicant's e-mail address in body text

diff --git a/app/app.sml b/app/app.sml
index 8ac969e..dba8cee 100644 (file)
--- a/app/app.sml
+++ b/app/app.sml
@@ -52,11 +52,12 @@ fun readTosMinorAgree () = readFile "/home/hcoop/public_html/tos.agree.minor.htm
 
 fun sendMail (to, subj, intro, footer, id) =
     let
-       val (name, rname, gname, forward, uses, other) =
-           case C.oneOrNoRows (getDb ()) ($`SELECT name, rname, gname, forward, uses, other FROM MemberApp WHERE id = ^(C.intToSql id)`) of
-               SOME [name, rname, gname, forward, uses, other] =>
+       val (name, rname, gname, email, forward, uses, other) =
+           case C.oneOrNoRows (getDb ()) ($`SELECT name, rname, gname, email, forward, uses, other FROM MemberApp WHERE id = ^(C.intToSql id)`) of
+               SOME [name, rname, gname, email, forward, uses, other] =>
                (C.stringFromSql name, C.stringFromSql rname,
                 if C.isNull gname then NONE else SOME (C.stringFromSql gname),
+                C.stringFromSql email,
                 C.boolFromSql forward, C.stringFromSql uses,
                 C.stringFromSql other)
              | _ => raise Fail "Bad sendMail row"
@@ -78,6 +79,8 @@ fun sendMail (to, subj, intro, footer, id) =
            NONE => ()
          | SOME gname => (mwrite "\nLegal guardian name: ";
                           mwrite gname);
+       mwrite ("\nE-mail address: ");
+       mwrite email;
        mwrite ("\nForward e-mail: ");
        mwrite (if forward then "yes" else "no");
        mwrite ("\n\nDesired uses:\n");