I keep getting an invalid action message when I try to send the e-mail. I think I'm missing the send_mail subroutine. I tried creating one:
$COMPILE{send_mail} = <<'END_OF_SUB';
sub send_mail {
#-----------------------------------------------------------------------------
#
my $self = shift;
use GT::Mail;
GT::Mail->send (
'Content-type' => 'text/html',
sendmail => $self->{glb_cfg}->{db_mail_path},
) or die "Error: $GT::Mail::error";
return ('home.html',{
header => $self->_language('HEA_HOME'),
msg => 'Email was sent.'});
}
END_OF_SUB
Based on your previous examples, but it doesn't seem to work. Also, how to I auto populate the e-mail form based on the record information? Each record has it's own "Email this Record" link. Thanks
Reena
$COMPILE{send_mail} = <<'END_OF_SUB';
sub send_mail {
#-----------------------------------------------------------------------------
#
my $self = shift;
use GT::Mail;
GT::Mail->send (
'Content-type' => 'text/html',
sendmail => $self->{glb_cfg}->{db_mail_path},
) or die "Error: $GT::Mail::error";
return ('home.html',{
header => $self->_language('HEA_HOME'),
msg => 'Email was sent.'});
}
END_OF_SUB
Based on your previous examples, but it doesn't seem to work. Also, how to I auto populate the e-mail form based on the record information? Each record has it's own "Email this Record" link. Thanks
Reena