Warning Footer Message
|
The hook To alter the placement of the warning message you need to alter the page layout.
# Hook function that returns HTML warning about use
# of harvesters and reminding user of terms + conditions.
#
# OPTIONAL
# Arg 1 - reference to map for future additional arguments; possibly undefined
sub hookWarningFooter_MakeHTML {
my ($rmArgsEx) = @_;
my $html = $::g_q->b('WARNING: ');
$html .= "Use of 'web harvesting', 'screen scraping', 'database scraping', ";
$html .= "and all other methods of copying any of the information provided ";
$html .= "by this web site is prohibited. ";
my $strUserFullName = &pdsGetLoggedInUserInfo_UserFullName();
if (!$::custom_fOpenSystem && $strUserFullName ne '') {
my $htmlUserFullName = $::g_q->escapeHTML($strUserFullName);
$html .= "You are currently logged in as ".$::g_q->b($htmlUserFullName).". ";
$html .= "If you are not $htmlUserFullName, please ".
&pdsMakeScriptLinkHTML('logout', 'logout').' immediately. ';
$html .= "If you are $htmlUserFullName please note that information you ";
$html .= "obtain from this site is for your personal use only. ";
}
$html .= 'Information obtained from this web site may not be sold or ";
$html .= "distributed to 3rd parties in any form whatsoever. ';
if (!$::custom_fOpenSystem) {
$html .= 'All usage of this web site is recorded. See '.
&pdsMakeScriptLinkHTML('Agreement', 'agreement').'.';
}
$html = $::g_q->font({'-color' => 'red'}, $html);
return $html;
}
|
USEFUL LINKS: |
