# print include files for SSI

sub printIncludes {
	print '<tr>';
	for my $incHandle ( keys %anchors ) {
		my $lastStatus;
		for my $status ( keys %{ $anchors{$incHandle} } ) {
			print $incHandle "@{ $anchors{$incHandle}{$status} }\n";
			print '</tr><tr>'if defined $lastStatus &&  $status ne $lastStatus; 
			$lastStatus = $status;
		}
	}
	print '</tr>';
}

##</code><code>##

$incString = "<td align=\"center\"><a href=\"\#$class\.$titles{$status}\"><font color=\"$colors{$status}\">$class</a></font></td>";