Hi all,
In the process of putting a new Actinic site together and have customised the Contact Form as per various posts on this forum and in the Knowledge Base.
However, when I publish the site to the trial server and complete the new form (which looks absolutely fine), the email I receive ignores the updated Mailform.pl file.
I'm not getting any errors and the email I'm receiving includes fields which I've removed from the form, so it suggests that MailForm.pl isn't being updated for some reason.
I've done the usual - Purge & Refresh, reverted to original and started over, but to no avail.
You can see the trial site here: http://trials.actinic.com/trials/trial57718/
Choose 'Request A Catalogue' to see the modified form.
And the content of my amended Mailform.pl file is as follows:
Any ideas anyone? I'm stumped.
Thanks,
Simon
In the process of putting a new Actinic site together and have customised the Contact Form as per various posts on this forum and in the Knowledge Base.
However, when I publish the site to the trial server and complete the new form (which looks absolutely fine), the email I receive ignores the updated Mailform.pl file.
I'm not getting any errors and the email I'm receiving includes fields which I've removed from the form, so it suggests that MailForm.pl isn't being updated for some reason.
I've done the usual - Purge & Refresh, reverted to original and started over, but to no avail.
You can see the trial site here: http://trials.actinic.com/trials/trial57718/
Choose 'Request A Catalogue' to see the modified form.
And the content of my amended Mailform.pl file is as follows:
Code:
sub SendMailToMerchant
{
#
# Receive parameters from input hash
#
my ($sEmailRecpt, $sTextMailBody, $sName, $sHTML, $sTitle, $sEmailAddress, $sAddressLine1, $sAddressLine2, $sAddressLine3, $sTown, $sCounty, $sPostcode, $sMailCountry, $sMailingListOptIn, $sThirdPartyOptIn);
$sName = $::g_InputHash{'Name'};
$sTitle = $::g_InputHash{'Title'};
$sEmailAddress = $::g_InputHash{'EmailAddress'};
$sAddressLine1 = $::g_InputHash{'AddressLine1'};
$sTown = $::g_InputHash{'Town'};
$sPostcode = $::g_InputHash{'Postcode'};
$sMailCountry = $::g_InputHash{'MailCountry'};
#
# Validate the content of the fields
#
my $sError;
if ($sName eq "")
{
$sError .= "<strong>Your name</strong> is required<br/>";
}
if ($sEmailAddress eq "")
{
$sError .= "<strong>Your email address</strong> is required<br/>";
}
elsif ($sEmailAddress !~ /.+\@.+\..+/)
{
$sError .= "<strong>Your email address</strong> is invalid<br/>";
}
if ($sAddressLine1 eq "")
{
$sError .= "<strong>The first line of your address</strong> is required<br/>";
}
if ($sTown eq "")
{
$sError .= "<strong>The name of your town/city</strong> is required<br/>";
}
if ($sPostcode eq "")
{
$sError .= "<strong>Your postcode / ZIP Code</strong> is required<br/>";
}
if ($sMailCountry eq "")
{
$sError .= "<strong>Your country</strong> is required<br/>";
}
if ($sError ne "")
{
$sError = ACTINIC::GroomError($sError); # make the error look nice for the HTML
$ACTINIC::B2B->SetXML('VALIDATIONERROR', $sError);
#
# Redisplay the mail page with error messages
#
DisplayMailPage($sName, $sEmailAddress, $sAddressLine1, $sTown, $sPostcode, $sMailCountry);
#
# Note: the above call will never return here
#
}
else
{
#
# Construct the mail text and send it to the merchant
#
$sError = ACTINIC::GetPhrase(-1, 2377);
$sTextMailBody .= "Name:" . $sTitle $sName . "\r\n";
$sTextMailBody .= "Email Address:" . $sEmailAddress . "\r\n";
$sTextMailBody .= "Address:" . "\r\n" . $sAddressLine1 . "\r\n";
$sTextMailBody .= "" . $sAddressLine2 . "\r\n";
$sTextMailBody .= "" . $sAddressLine3 . "\r\n";
$sTextMailBody .= "" . $sTown . "\r\n";
$sTextMailBody .= "" . $sCounty . "\r\n";
$sTextMailBody .= "" . $sPostcode . "\r\n";
$sTextMailBody .= "" . $sMailCountry . "\r\n";
$sTextMailBody .= "Able to send Sock Solutions brochures and offers?" . $sMailingListOptIn . "\r\n";
$sTextMailBody .= "Able to pass details to other companies?" . $sThirdPartyOptIn . "\r\n";
my @Response = ACTINIC::SendMail($::g_sSmtpServer, $$::g_pSetupBlob{EMAIL}, $sSubject, $sTextMailBody, $sTitle, $sEmailAddress, $sAddressLine1, $sAddressLine2, $sAddressLine3, $sTown, $sCounty, $sPostcode, $sMailCountry, $sMailingListOptIn, $sThirdPartyOptIn);
if ($Response[0] != $::SUCCESS)
{
ACTINIC::RecordErrors($Response[1], ACTINIC::GetPath());
$sError = $Response[1];
}
#
# Now bounce back to the mail page
#
Thanks,
Simon
Comment