# Copyright (C) 2001-2004 All right reserved by Shinya Kondo ( CGI KON )

print qq!
	<TABLE BORDER=1 WIDTH="95%" CELLPADDING="1" CELLSPACING="1">
		<TR>
			<TD ALIGN="center" WIDTH=20 HEIGHT=20 NOWRAP>　</TD>
!;

	for($day = 1;$day <= 31;$day++) {
		print qq!
			<TD ALIGN="center" WIDTH=20 HEIGHT=20 BGCOLOR="#DDDDDD" NOWRAP>
				<FONT SIZE="2">$day</FONT>
			</TD>
		!;
	}

print qq!
		</TR>
!;

	for($loop = 1;$loop <= $#LIST_ITEM;$loop++) {
		print qq!
		<TR>
			<TD ALIGN="center" HEIGHT=20 NOWRAP>
				<FONT SIZE="2">$LIST_ITEM[$loop]　</FONT>
			</TD>
		!;

		for($day = 1;$day <= 31;$day++) {
			$color = $LIST_STATUS[$loop][$day];
			$color = qq!BGCOLOR="$color"! if($color);

			print qq!
			<TD $color ALIGN="center" WIDTH=20 HEIGHT=20 NOWRAP>　</TD>
			!;
		}

		print qq!
		</TR>
		!;
	}

print qq!
	</TABLE>
<P>
!;

1;

# Copyright (C) 2001-2004 All right reserved by Shinya Kondo ( CGI KON )