compilerbitch

function YearPage::print_month (YearMonth m)
{
if (not $m.has_entries) { return; }
"""
<!-- MONTH & SUBJECTS LINK -->
<table width="100%" cellpadding="0" cellspacing="0" border="0" summary="">
	<tr class="Control">
		<td class="caption" align=center>""";
        print $m->month_format();
        """ [<a href="$m.url" class="index">subjects</a>]
    </td>
	</tr>
	<tr>
		<td background=$*Sepbar width="100%><img src="http://stat.livejournal.com/img/dot.gif" width="1" 

height="15"></td>
	</tr>
</table>

<BR>
<table width="358" bgcolor="$*centerpage_back" cellpadding="0" cellspacing="1" border="0" summary=""  align="center">
	<tr align="center">
""";
  foreach var int d (weekdays()) 
  {
		"<td align=\"center\" width=50
		>"; print $*lang_dayname_short[$d]; "
		</td>";
	}
"""
	</tr>""";
	foreach var YearWeek w ($m.weeks) { $w->print(); }
"""
</table>
<BR>""";
}


function YearWeek::print () {
"<tr valign='top'>";
    if ($.pre_empty) 
    { "<td colspan='$.pre_empty'></td>"; }
    foreach var YearDay d ($.days)
    {
	if ($d.num_entries) 
	{
           "<td width=50 height=50 align=center valign=middle class=DayCell>$d.day:$d.num_entries";
        }							
        else 
        {
        "<td width=50 height=50 align=center valign=middle class=DayCell>$d.day:0";
      }
      "</td>";
    }
    if ($.post_empty) { "<td colspan='$.post_empty'></td>"; }
"</tr>";
}