require "./script/menu/Menu.cgi";
sub History2
{
	$s = 0;
	&DBM_OPEN($DBM_GD,"GD");
	foreach $key(sort {$b <=> $a} keys %GD)
	{
		$history .= "<tr><td class=\"status2_1\">". &get_time($key,1) . "</td><td class=\"status2_2\">$GD{$key}</td></tr>\n";

	}
	if($history)
	{
		$history =  <<"		EOF";
		<table style="status1">
		<tr><td class="status1">時間</td><td class="status1">コメント</td></tr>
		$history
		</table></table>
		EOF
	}
	else
	{
		$history = "表\示するものがありません。";
	}
	&F_header("歴史");
	print $history;
	&F_footer;
}
