Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allowed To: to be empty in email sender.

Browse Source
This commit is contained in:
Chris 2011-09-26 15:09:48 +01:00
parent a9224f0021
commit 9d12e085c3
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Template.pm
View File

@ -442,12 +442,11 @@ sub email_template {
# Check we have required fields
return "No from field specified in email template arguments." if(!$args -> {"***from***"});
return "No to field specified in email template arguments." if(!$args -> {"***to***"});
return "No subject field specified in email template arguments." if(!$args -> {"***subject***"});
# Build the header first...
$email = "From: ".$args -> {"***from***"}."\n";
$email .= "To: ".$args -> {"***to***"}."\n";
$email .= "To: ".$args -> {"***to***"}."\n" if($args -> {"***to***"});
$email .= "Cc: ".$args -> {"***cc***"}."\n" if($args -> {"***cc***"});
$email .= "Bcc: ".$args -> {"***bcc***"}."\n" if($args -> {"***bcc***"});
$email .= "Reply-To: ".$args -> {"***replyto***"}."\n" if($args -> {"***replyto***"});