sub FormatTime {
##	Format Time Function	##
##		Takes Arguments:
##		$time which is the integer value returned by the time function
##		Returns:
##		a formatted time date string

	my $time = shift;
	(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst) = localtime($time);
	my $show_min = ":";
	$show_min = ":0" if $min<10;
	$mon++;
	$year += 1900;
	return "$hour$show_min$min $mon/$mday/$year";
}

##</code><code>##

my $output = "";
			foreach $project_module_list (@project_module_list) {
				if($moduleCount != 0) {
					@moduleData = split /,/, $project_module_list;
					$output = $output . "<tr><td align=center><div class=table_data>$moduleCount</div></td>";
					$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 . "<td$color align=center><div class=table_data><input type=checkbox name=\"$headers[$dataCount]$moduleCount\" $default></div></td><td$recentChange title=\"Changed by $moduleField[1] at $localtime\"><div class=table_data>$status</div></td>";
						}
						else {
							if($moduleField[2] > time - $changeBuffer) {
								$recentChange = " bgcolor=\"#99CCFF\"";
							}
							$output = $output . "<td$recentChange><div title=\"Changed by $moduleField[1] at $localtime\" class=table_data onClick=\"ToggleShowHide('label_$headers[$dataCount]$moduleCount','$headers[$dataCount]$moduleCount')\" id=\"label_$headers[$dataCount]$moduleCount\" style='display: block;'>$moduleField[0]</div> <div id=\"$headers[$dataCount]$moduleCount\" style='display: none;'><input type=text name=\"$headers[$dataCount]$moduleCount\" value=\"$moduleField[0]\"><input type=button onClick=\"ToggleShowHide('label_$headers[$dataCount]$moduleCount','$headers[$dataCount]$moduleCount')\" value=OK></div></td>";
						}
						$dataCount++;
					}
					$output = $output . "</tr>\n";
				}
				$moduleCount++;
				$default = $color = "";
			}
			
			
			print qq~
$output
				</table>
				<script>
					window.onload=function() { document.approve.submit1.disabled=false; }
				</script>
				<table border=0 cellpadding=10><tr>
					<td>&#160;</td>
					<td>&#160;</td>
					<td>&#160;</td>
					<td><input type=submit value="Save Changes" name="submit2"></td>
				</tr></table>
				</form>
			~;