[modperl-embperl] DBIx::Recordset and duplicate link destinations (patch)

if a table has multiple links to the same second table, then some (all
except the first?) of the LinkNames don't appear since they are never
added to the *ReplaceFields list.

here's the fix:

--- /home/gus/Recordset.pm.orig Tue Feb 12 14:47:38 2002
+++ DBIx/Recordset.pm Wed Feb 13 17:11:28 2002
@@ -1867,6 +1867,10 @@
print LOG "[$$] DB: Add to $self->{'*Table'} linked name field $link->{'!Table'}.$_ (i=$i, n=$n, m=$m)\n" if ($debug > 2) ;
$m++ ;
}
+ else
+ {
+ push @{$replace[$i]}, $fields{"$link->{'!Table'}.$_"};
+ }
}
}
else
@@ -1881,6 +1885,10 @@
print LOG "[$$] DB: Add to $self->{'*Table'} linked name field $link->{'!Table'}.$nf (i=$i, n=$n, m=$m)\n" if ($debug > 2) ;
$m++ ;
}
+ else
+ {
+ push @{$replace[$i]}, $fields{"$link->{'!Table'}.$_"};
+ }
}

$numtabs-- if (!exists $tables{$link->{'!Table'}}) ;