wana know if I can add a sending email mod into html_record_long.
I am doing a job database, so when user check on the job, there will be always a form just after the showing of details of the job. The form will extract the details from that particular job profile. can it be done?
sub html_record_long {
#----------------------------------------------------------------
my (%rec) = @_;
$rec{$db_key} =~ s/<?.B>//g;
if ($db_total_hits > 1) {
# create links to previous and next records
$next_url = $ENV{'QUERY_STRING'};
$next_url =~ s/\&nh=\d+//;
$next_hit = $nh + 1;
$prev_hit = $nh - 1;
if ($prev_hit) {
$previous = qq~<a href="$db_script_url?$next_url&nh=$prev_hit"><$font>Previous</font></a>~;
}
else { $previous = " "; }
if ($next_hit <= $db_total_hits) {
$next = qq~<a href="$db_script_url?$next_url&nh=$next_hit"><$font>Next</font></a>~;
}
else { $next = " "; }
# create link back to short display
$list_url = $next_url;
$list_url =~ s/\&mh=\d+//;
$mh = $db_max_hits;
$lh = int(($nh-1)/$mh) + 1;
$list = qq~<a href="$db_script_url?$list_url&nh=$lh"><$font>Back to Job list</font></a>~;
# print out the links
print qq|
<table width=100%>
<tr><td width=50%>$previous</td>
<td width=50% align=right>$next</td></tr>
<tr><td colspan=2 align=center>$list</td></tr>
<tr><td colspan=2 align=center><$font>Profile $nh of $db_total_hits</font></table>
|;
}
# Below is where you define your form.
# <-- Start of record display -->
my $font_color = 'Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399';
print qq|<hr>
<table border="0" width="500" height="5" cellpadding="2" cellspacing="0">
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Company:<b>
$rec{'Company'}</b></font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Industry</font><font face="Tahoma,Verdana,Arial" size="2">:
$rec{'Industry'}</font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Address</font><font face="Tahoma,Verdana,Arial" size="2">:
$rec{'Address'}</font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Website:
<a href="$rec{'Website'}">$rec{'Website'}</a></font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Brief
Intro: $rec{'Brief_Intro'}</font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2"><b>Position
:<a href="$db_script_link_url&$db_key=$rec{$db_key}&send_email_form=1">$rec{'Position'}</b></a></font></td>
</tr>
<tr>
<td width="498" height="1" colspan="2"><font face="Tahoma,Verdana,Arial" size="2">Employment
type: $rec{'Employment_Type'}</font></td>
</tr>
<tr>
<td width="498" height="1" colspan="2"><font face="Tahoma,Verdana,Arial" size="2">Work
location: $rec{'Work_Location'}</font></td>
</tr>
<tr>
<td width="498" height="1" colspan="2"><font face="Tahoma,Verdana,Arial" size="2">Min.
qualification: <b>$rec{'Min_Qualification'}</b></font></td>
</tr>
<tr>
<td width="498" height="1" colspan="2"><font face="Tahoma,Verdana,Arial" size="2">Additional
Remarks: $rec{'Additional_Remarks'}</font></td>
</tr>
<tr>
<td width="249" height="32"><font face="Tahoma,Verdana,Arial" size="2">posted
date: <b>$rec{'Date'}</b></font></td>
<td width="249" height="32"><font face="Tahoma,Verdana,Arial" size="2">Closing
date: <b>$rec{'Closing_Date'}</b></font></td>
</tr>
</table>
|;
# <-- End of record display -->
}
I am doing a job database, so when user check on the job, there will be always a form just after the showing of details of the job. The form will extract the details from that particular job profile. can it be done?
sub html_record_long {
#----------------------------------------------------------------
my (%rec) = @_;
$rec{$db_key} =~ s/<?.B>//g;
if ($db_total_hits > 1) {
# create links to previous and next records
$next_url = $ENV{'QUERY_STRING'};
$next_url =~ s/\&nh=\d+//;
$next_hit = $nh + 1;
$prev_hit = $nh - 1;
if ($prev_hit) {
$previous = qq~<a href="$db_script_url?$next_url&nh=$prev_hit"><$font>Previous</font></a>~;
}
else { $previous = " "; }
if ($next_hit <= $db_total_hits) {
$next = qq~<a href="$db_script_url?$next_url&nh=$next_hit"><$font>Next</font></a>~;
}
else { $next = " "; }
# create link back to short display
$list_url = $next_url;
$list_url =~ s/\&mh=\d+//;
$mh = $db_max_hits;
$lh = int(($nh-1)/$mh) + 1;
$list = qq~<a href="$db_script_url?$list_url&nh=$lh"><$font>Back to Job list</font></a>~;
# print out the links
print qq|
<table width=100%>
<tr><td width=50%>$previous</td>
<td width=50% align=right>$next</td></tr>
<tr><td colspan=2 align=center>$list</td></tr>
<tr><td colspan=2 align=center><$font>Profile $nh of $db_total_hits</font></table>
|;
}
# Below is where you define your form.
# <-- Start of record display -->
my $font_color = 'Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399';
print qq|<hr>
<table border="0" width="500" height="5" cellpadding="2" cellspacing="0">
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Company:<b>
$rec{'Company'}</b></font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Industry</font><font face="Tahoma,Verdana,Arial" size="2">:
$rec{'Industry'}</font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Address</font><font face="Tahoma,Verdana,Arial" size="2">:
$rec{'Address'}</font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Website:
<a href="$rec{'Website'}">$rec{'Website'}</a></font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2">Brief
Intro: $rec{'Brief_Intro'}</font></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"></td>
</tr>
<tr>
<td width="492" colspan="2" height="18"><font face="Tahoma,Verdana,Arial" size="2"><b>Position
:<a href="$db_script_link_url&$db_key=$rec{$db_key}&send_email_form=1">$rec{'Position'}</b></a></font></td>
</tr>
<tr>
<td width="498" height="1" colspan="2"><font face="Tahoma,Verdana,Arial" size="2">Employment
type: $rec{'Employment_Type'}</font></td>
</tr>
<tr>
<td width="498" height="1" colspan="2"><font face="Tahoma,Verdana,Arial" size="2">Work
location: $rec{'Work_Location'}</font></td>
</tr>
<tr>
<td width="498" height="1" colspan="2"><font face="Tahoma,Verdana,Arial" size="2">Min.
qualification: <b>$rec{'Min_Qualification'}</b></font></td>
</tr>
<tr>
<td width="498" height="1" colspan="2"><font face="Tahoma,Verdana,Arial" size="2">Additional
Remarks: $rec{'Additional_Remarks'}</font></td>
</tr>
<tr>
<td width="249" height="32"><font face="Tahoma,Verdana,Arial" size="2">posted
date: <b>$rec{'Date'}</b></font></td>
<td width="249" height="32"><font face="Tahoma,Verdana,Arial" size="2">Closing
date: <b>$rec{'Closing_Date'}</b></font></td>
</tr>
</table>
|;
# <-- End of record display -->
}