diff options
| author | Matthew Somerville <matthew@dracos.co.uk> | 2011-03-23 17:06:56 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@dracos.co.uk> | 2011-03-23 17:06:56 +0000 |
| commit | 9e3f0cc26dbbd0e1b3d9d4aaf89fffec41557027 (patch) | |
| tree | a5f29c5aeb54fbf95088c5c8b6e223e3684bbf3c | |
| parent | 7e43a196f8a31a6ed2535a9dd88927a31a132c89 (diff) | |
Missing CGI var.
| -rw-r--r-- | perllib/Page.pm | 4 | ||||
| -rwxr-xr-x | web/import.cgi | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 0e62fefee..24c52885a 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -394,7 +394,7 @@ sub error_page ($$) { # send_email TO (NAME) TEMPLATE-NAME PARAMETERS # TEMPLATE-NAME is a full filename here. sub send_email { - my ($recipient_email_address, $name, $template, %h) = @_; + my ($q, $recipient_email_address, $name, $template, %h) = @_; $template = File::Slurp::read_file("$FindBin::Bin/../templates/emails/$template"); my $to = $name ? [[$recipient_email_address, $name]] : $recipient_email_address; @@ -454,7 +454,7 @@ sub send_confirmation_email { $file_thing = 'empty property' if $q->{site} eq 'emptyhomes' && $thing eq 'problem'; # Needs to be in English my $template = "$file_thing-confirm"; - send_email($recipient_email_address, $name, $template, %h); + send_email($q, $recipient_email_address, $name, $template, %h); my ($action, $worry); if ($thing eq 'problem') { diff --git a/web/import.cgi b/web/import.cgi index 9d38dc05e..371e70f7a 100755 --- a/web/import.cgi +++ b/web/import.cgi @@ -119,7 +119,7 @@ sub main { detail => $input{detail}, ); - Page::send_email($input{email}, $input{name}, 'partial', %h); + Page::send_email($q, $input{email}, $input{name}, 'partial', %h); dbh()->commit(); print 'SUCCESS'; |