% my $i = 0;
% foreach my $link ( @$links ) {
% my $tab_class = 'tabi';
% if ( $link->{name} eq $default ) {
% $deflink = $link;
% $tab_class = 'tab';
% } elsif ( $default eq '' && $i == 0 ) {
% $tab_class = 'tab';
% }
% my $id = exists $link->{source_field} ? $link->{source_field} : 'id';
% my $auto = '';
% if ( exists $link->{auto} && ref $link->{auto} eq 'HASH' ) {
% while ( my ($from, $to) = each %{ $link->{auto} } ) {
% $auto .= '&from='.$from.'&to='.$document->$to;
% }
% }
% my $class_param;
% if ( ref $link->{class} eq 'ARRAY' ) {
% $class_param = join '&', map { 'class='.$_ } @{$link->{class}};
% } else {
% $class_param = 'class='.$link->{class};
% }
%
<% $link->{name} %>\
% $i++;
% }