I need to send to a search page by e-mail. This search put one record under another, so I have many $db_key in the same display page.
This page is trigged by $db_script_link_url&view_records_hoje=1&$db_key=*&Data=$rec{'Data1'}&Modificado=yes
I use the e-mail mod:
sub html_forward_email_form {
#----------------------------------------------------------
my (@hits) = @_;
my ($numhits) = ($#hits+1) / ($#db_cols+1);
my ($maxhits); $in{'mh'} ? ($maxhits = $in{'mh'}) : ($maxhits = $db_max_hits);
my ($message) = $_[0];
$in{$db_key} =~ s/<?.B>//g;
%rec = &get_record($in{$db_key});
unless ($in{'email_message'}) {
for (0 .. $numhits - 1) {
$in{'email_message'} .= &html_record_hoje (&array_to_hash($_, @hits));
}
}
&html_print_headers;
But doesn’t work…
How can I send this search page by e-mail?
This page is trigged by $db_script_link_url&view_records_hoje=1&$db_key=*&Data=$rec{'Data1'}&Modificado=yes
I use the e-mail mod:
sub html_forward_email_form {
#----------------------------------------------------------
my (@hits) = @_;
my ($numhits) = ($#hits+1) / ($#db_cols+1);
my ($maxhits); $in{'mh'} ? ($maxhits = $in{'mh'}) : ($maxhits = $db_max_hits);
my ($message) = $_[0];
$in{$db_key} =~ s/<?.B>//g;
%rec = &get_record($in{$db_key});
unless ($in{'email_message'}) {
for (0 .. $numhits - 1) {
$in{'email_message'} .= &html_record_hoje (&array_to_hash($_, @hits));
}
}
&html_print_headers;
But doesn’t work…
How can I send this search page by e-mail?