Index: pbase_links.msn =================================================================== --- pbase_links.msn (revision 187) +++ pbase_links.msn (revision 188) @@ -35,6 +35,7 @@ % if ( ref $links eq 'ARRAY' && scalar @$links ) { % my $deflink = $links->[0]; +% my $id = exists $deflink->{source_field} ? $deflink->{source_field} : 'id'; % my $auto = ''; % if ( exists $deflink->{auto} && ref $deflink->{auto} eq 'HASH' ) { % while ( my ($from, $to) = each %{ $deflink->{auto} } ) { @@ -46,6 +47,7 @@
% my $i = 0; % foreach my $link ( @$links ) { +% 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} } ) { @@ -53,12 +55,12 @@ % } % } <% $link->{name} %>\ % $i++; % }
- % }