my $dpt = $q->param('email_dpt');
  my $replace_from = $q->param('email_dpt_from');
  my $name = $q->param('email_dpt_name');
  my $subject = $q->param('email_dpt_subject');
  my $content = $q->param('email_dpt_content');

  # set send to address based on select drop down
  # first email add is value of 0!!
  my @DEPARTMENTS = qw(
   editor@lsweb.org.uk
   webamster@lsweb.org.uk
   news@lsweb.org.uk
   ls2@lsweb.org.uk
   sport@lsweb.org.uk
   comment@lsweb.org.uk
   extra@lsweb.org.uk
    );
  my $replace_to = $DEPARTMENTS[$dpt];
  # set up variables to send to the email template (email)
  my $vars = {
          to    => $replace_to,
          from    => $replace_from,
                name    => $name,
                subject    => $subject,
                content    => $content
             };
               
  # send an email with the details
    $mail_template->process('email/email',
                            $vars,
                            $replace_to,    
                            $replace_from,    
                            $subject)        # subject
                            || die $mail_template->error;
  # add email to the Database

[LINE 102] LSweb::Database::Email->create({
                'to'        => $replace_to,
                'from'        => $replace_from,
                'name'        => $name,
                'subject'    => $subject,
                'content'    => $content,
                # id and datetime auto fields
                });
[download]