<& header &>

<h2> The beer database </h2>

<TABLE BORDER="0" ALIGN="center" WIDTH="70%">
% foreach my $table (@{$config->{display_tables}}) {
<TR>
<TD>
<A HREF="<%$table%>/list">List by <%$table%></A>
</TD>
</TR>
%}
</TABLE>

<BR>
<%args>
$request
$objects
$base
$config
$classmetatadata=>undef
</%args>
