<%args>
</%args>

<%doc>

=head1 addnew

This is the interface to adding a new instance of an object. (or a new
row in the database, if you want to look at it that way) It displays a
form containing a list of HTML components for each of the columns in the
table.

=cut

<& header, %ARGS &>
</%doc>
<form id="createform" method="post" action="<%$base%>/<%$classmetadata->{table}%>/do_edit/">
<fieldset>
<legend>Add a new <%$classmetadata->{moniker}%></legend>
    <input type="hidden" name="action" value="create">
%foreach my $col ( @{$classmetadata->{columns}} ) {
%next if $col eq "id";
    <label><span class="field"> <% $classmetadata->{colnames}->{$col} %></span>
     <% $classmetadata->{cgi}->{$col}->as_HTML %> 
     </label>
%}
    <input type="submit" name="create" value="create">
</fieldset>
</form>