Gossamer Forum
Home : Products : DBMan : Customization :

private email

Quote Reply
private email
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 -->


}
Subject Author Views Date
Thread private email eskimoz 873 Jan 26, 2000, 3:59 PM
Post Re: private email
Eliot 851 Jan 26, 2000, 4:56 PM
Post Re: private email
eskimoz 846 Jan 26, 2000, 5:01 PM
Post Re: private email
Eliot 852 Jan 27, 2000, 7:35 AM