my $output = "";
foreach $project_module_list (@project_module_list) {
if($moduleCount != 0) {
@moduleData = split /,/, $project_module_list;
$output = $output . "
$moduleCount | ";
$dataCount = 0;
foreach $moduleData (@moduleData) {
@moduleField = split /:/, $moduleData;
$recentChange = "";
$_ = $headers[$dataCount];
$localtime = FormatTime($moduleField[2]) if $moduleField[2];
$localtime = "n/a" unless $moduleField[2];
if( /approv/i ) {
$status = "N/A";
if($moduleField[0]) {
$default = "checked";
$status = "$moduleField[1]";
$color = " bgcolor=\"#CCFF99\"";
}
else {
$default = "";
$color = " bgcolor=\"#FFCC66\"";
}
if($moduleField[2] > time - $changeBuffer) {
$recentChange = " bgcolor=\"#99CCFF\"";
}
$output = $output . " | $status | ";
}
else {
if($moduleField[2] > time - $changeBuffer) {
$recentChange = " bgcolor=\"#99CCFF\"";
}
$output = $output . " | ";
}
$dataCount++;
}
$output = $output . "
\n";
}
$moduleCount++;
$default = $color = "";
}
print qq~
$output
~;