Hey Monks

Given the Following Code

  my $dpt = $q->param('email_dpt');
  my $from = $q->param('email_dpt_from');
  my $name = $q->param('email_dtp_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 $to = $DEPARTMENTS[$dpt];
  # set up vaibles to send to the email template (email)
  my $vars = {
          to    => $to,
          from    => $from,
                name    => $name,
                subject    => $subject,
                content    => $content
             };
               
  # send an email with the details
    $mail_template->process('email/email',
                            $vars,
                            $to,    # to?
                            $from,    # from?
                            $subject)        # subject
                            || die $mail_template->error;
  # add email to the Database

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

The Script does send the email but errors and cant add the email to the database, using the Create sql query (indicated as Line 102).

I get the Following Error

Fri Apr 28 23:36:44 2006 error Error executing run mode 'email_dpt': Can't insert new LSweb::Database::Email: Cannot call execute with a reference (SCALAR(0x98d69dc))\n at /home/lsweb/public_html/perllib/LSweb/Application/Email.pm line 102\n at /dev/null line 0\n

Can anyone help with the Create?

Yours