[- # BACP General-purpose email form # # Questions? - email to chris@design256.com # Fields which start "m_" (eg ) *must* be filled in # Fields which start "c_" are optional # The fields are sorted into alphabetical order, so I # have put a_ b_ c_ d_ etc before the actual names # so that the email comes out in a reasonable order #---------- configuration ------------------- # Enter the email address to send the form to below: $sendto='gail.stevenson@bacp.co.uk'; # Enter the subject for the email below $subject='BACP members: email address submission form'; # Enter the page to be shown on a completed form below $nextpage='/forms/email_submission_thanks.html'; #---------- end of configuration ------------ use bac2::base; $session=bac2::session->newcreate(); $customer=$session->get(customerref); @mands=grep s/^m_//,keys %fdat; $customer->{tempmandatory}=[]; $customer->{mailto}=$sendto; $customer->{mailsubject}=$subject; foreach (@mands) { $fdat{"c_$_"}=$fdat{"m_$_"}; push @{$customer->{tempmandatory}},$_; } @{$customer->{tempform}}=grep /^c_/,keys %fdat; ($badtext,$red)=$customer->ncheckform($nextpage,'tempform','tempmandatory'); -] BACP Members' Email Address Submission Form

BACP Members' Email Address Submission Form

Your email address will not be passed onto any third party and will only be used by BACP.

[$ if $badtext $] [+ $badtext +]

[$ endif $] Fields indicated by (*) are mandatory

{a_details} +]>My details
{b_title} +]>Title:
{c_firstname} +]>First name: *
{d_surname} +]>Surname: *
{e_memberid} +]>BACP membership number: *
{f_email} +]>Email address: *