";
$daNumber = "None";
$datePublished = "None";
$dateProcessed = "None";
#WR3191, increment k by 2
for ($k = 0; $k < 20; ) {
if (($k == 1 && $rs[$i] != "None") || ($k == 3 && $rs[$i] != "None")) {
# added link for Public Notice Report under column PN Date by SShieh on 10/24/2001
#added link for Action Taken PN Date by SShieh on 05/09/2002 WR2548
$publishedDate = $rs[$i];
& findPNReportKey;
if ($reportSize > 0 && $reportDays > 0 )
#if ($reportSize > 0 )
{ print "reportsize=$reportSize";
print "| $fieldNames[$k++] $rs[$i++] ";
}else {
print " | $fieldNames[$k++] $rs[$i++]";
}
} else {
if ($k == 14)
{
print " | $fieldNames[$k++] $rs[$i++]";
my $p;
my $mod_filenum;
$p = $i -1;
if ($rs[$p] eq "File Transferred to")
{
print "
$rs[$p + 31]/$rs[$p + 32]";
$mod_filenum = $rs[$p + 30];
if ($mod_filenum != NULL) {
substr ($mod_filenum, 3, 0) = "-";
substr ($mod_filenum, 7, 0) = "-";
substr ($mod_filenum, 16, 0) = "-";
}
print "
New File #: $mod_filenum";
}
if ($rs[$p] eq "File Transferred from")
{ $mod_filenum = $rs[$p + 27];
if ($mod_filenum != NULL) {
substr ($mod_filenum, 3, 0) = "-";
substr ($mod_filenum, 7, 0) = "-";
substr ($mod_filenum, 16, 0) = "-";
}
print "
$rs[$p + 28]/$rs[$p +29]";
print "
Old File #: $mod_filenum";
}
}
elsif ($k == 18) {
print " |
| $fieldNames[$k++] $daNumber";
$i++;
}
else
{
print " |
| $fieldNames[$k++] $rs[$i++]";
}
}
if (($k == 1 && $rs[$i] != "None") || ($k == 3 && $rs[$i] != "None")) {
$publishedDate = $rs[$i];
& findPNReportKey;
if ($reportSize > 0 && $reportDays > 0)
#if ($reportSize > 0)
{
print " | $fieldNames[$k++] $rs[$i++]";
} else {
print " | $fieldNames[$k++] $rs[$i++]";
}
}
elsif ( $k == 17) {
my ( @rs4 ) ;
my ( $bondSelect ) ;
$bondSelect = qq !
SELECT ISNULL(convert(char(10),max(date_submitted),101),"None")
FROM MILESTONE_ATTACHMENTS a
WHERE a.filing_key = $filing_key
AND a.milestone_attachment_code = "BOND"
!;
@rs4 = callSql ($ws_db, $bondSelect);
$bondDate = $rs4[1];
print " | $fieldNames[$k++] $bondDate";
$i++;
}
elsif ($k == 19) {
print " | $fieldNames[$k++] $dateProcessed";
$i++;
}
elsif ($k == 13) {
# On 05/24/2006 By SShieh for WR10299, skip date_last_update
print " | ";
$k++;
$i++;
}
else {
print " | $fieldNames[$k++] $rs[$i++]";
}
}
if ($k == 20) {
print " |
| $fieldNames[$k++] $dateProcessed";
$i++;
} else {
print " |
| $fieldNames[$k++] $rs[$i++]";
}
$k++;
$i++;
## added sql3 to fix CARS588 (SAT should not have link to Site Information) DMarple 2/28/2001
ws_sql($ws_db, "SET ROWCOUNT 0");
&doNatureOfService(); # show nature of service
&do214ServiceType(); # show service types
&doSiteInformation($filenum); #show link for site info and other related filings
## &doAttachmentMenu(); # only shows a link to the menu if it is an Internet filing.
print " |