diff options
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 71f519e46..62e6a0997 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.127 2008-11-17 22:58:51 matthew Exp $ +# $Id: Page.pm,v 1.128 2008-12-01 12:19:13 matthew Exp $ # package Page; @@ -490,6 +490,7 @@ sub os_to_px_with_adjust { } # send_email TO (NAME) TEMPLATE-NAME PARAMETERS +# TEMPLATE-NAME is currently one of _(problem), update, alert, tms sub send_email { my ($q, $email, $name, $thing, %h) = @_; my $template = "$thing-confirm"; @@ -505,14 +506,19 @@ sub send_email { To => $to, }, $email); - my $action = ($thing eq 'alert') ? 'confirmed' : 'posted'; + my $action = 'posted'; # problem, update + if ($thing eq 'alert') { + $action = 'activated'; + } elsif ($thing eq 'tms') { + $action = 'registered'; + } $thing .= ' report' if $thing eq _('problem'); $thing = 'expression of interest' if $thing eq 'tms'; my $out = <<EOF; <h1>Nearly Done! Now check your email...</h1> <p>The confirmation email <strong>may</strong> take a few minutes to arrive — <em>please</em> be patient.</p> <p>If you use web-based email or have 'junk mail' filters, you may wish to check your bulk/spam mail folders: sometimes, our messages are marked that way.</p> -<p>You must now click on the link within the email we've just sent you — +<p>You must now click the link in the email we've just sent you — if you do not, your $thing will not be $action.</p> <p>(Don't worry — we'll hang on to your $thing while you're checking your email.)</p> EOF |