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 @@