% if ( @columns_from < $t_from->columns - 1 && @columns_to < $t_to->columns - 1) { % }

Table: <% $t_from->name %>	Cardinality	Table: <% $t_to->name %>
% foreach my $c (@columns_from) { <% $c %> % } Let Alzabo choose % foreach my $c ($t_from->columns) { % next if grep { $_ eq $c->name } @columns_from; column( $c->name ) } ? ' selected' : '' %>><% $c->name %> % } Is dependent on <% $t_to->name %>? >	% foreach my $cf (@cardinality) { ><% $cf %> % } .. % foreach my $ct (@cardinality) { ><% $ct %> % }	% foreach my $c (@columns_to) { <% $c %> % } Let Alzabo choose % foreach my $c ($t_to->columns) { % next if grep { $_ eq $c->name } @columns_to; <% $c->name %> % } Is dependent on <% $t_from->name %>? >
Comment:

<%args> $s $table_from $table_to $cardinality_from => '0' $cardinality_to => '1' $from_is_dependent => 1 $to_is_dependent => 0 @columns_from => () @columns_to => () <%init> my ($t_from, $t_to); eval { $t_from = $s->table($table_from); $t_to = $s->table($table_to); }; @columns_from = () unless grep { length } @columns_from; @columns_to = () unless grep { length } @columns_to; my @cardinality = qw(1 n);