<%args>
$schema
$table_name
@attributes => ()
$comment => ''
$after => undef
</%args>

<%init>
my $s;
eval
{
    $s = Alzabo::Create::Schema->load_from_file( name => $schema );

    my %p = ( name => $table_name,
	      comment => $comment,
	    );

    $p{attributes} = \@attributes
        if Alzabo::Table->can('attributes');

    $p{after} = $s->table( $after ) if defined $after;

    $s->make_table(%p);

    $s->save_to_file;
};

my $e = $@;

$m->comp( 'handle_rules_exception', e => $e, comp => 'view_schema', %ARGS );

$m->comp( 'exception', $e ) if $e;

$m->redirect( uri( path => 'view_table' . Alzabo::GUI::Mason::Config::mason_extension(),
                   query => { schema => $s->name,
                              table => $table_name,
                            },
                 )
            );
</%init>

<%flags>
inherit => 'syshandler'
</%flags>