Restore password display to go with initial application

[hcoop/portal.git] / app / join.mlt

diff --git a/app/join.mlt b/app/join.mlt
index 40a6f81..dbe8d08 100644 (file)
--- a/app/join.mlt
+++ b/app/join.mlt
@@ -28,13 +28,15 @@
                %><h3>That username is already in use.</b><h3><%
        elseif not (App.validEmail email) then
                %><h3>Invalid e-mail address</h3><%
-       elseif not (App.apply { name = name, rname = rname, email = email,
+       else switch App.apply { name = name, rname = rname, email = email,
                                gname = (case gname of "" => NONE | _ => SOME gname),
-                               forward = forward, uses = uses, other = other }) then
-               %><h3>Error sending confirmation e-mail</h3><%
-       else
-               %><h3>Application recorded</h3>
-               Check your e-mail for a message with further instructions.<%
+                               forward = forward, uses = uses, other = other } of
+                 NONE => %><h3>Error sending confirmation e-mail</h3><%
+               | SOME unix_passwd =>
+                       %><h3>Application recorded</h3>
+                       Check your e-mail for a message with further instructions.  <b>Save this password to use to access your new account if your application is approved</b>:
+                       <blockquote><tt><% Web.html unix_passwd %></tt></blockquote><%
+               end
        end
 else
        val minor = $"minor" <> "" %>