Fixed scoping problem

This commit is contained in:
JT Smith 2002-08-15 02:01:23 +00:00
parent b3ceea7566
commit dbd1104279

View file

@ -565,7 +565,7 @@ sub set {
=cut
sub setCollateral {
my ($key, $sql, $properties, $seq, $dbkeys, $dbvalues, $counter);
my ($key, $sql, $seq, $dbkeys, $dbvalues, $counter);
my ($class, $table, $keyName, $properties, $useSequence, $useWobjectId) = @_;
$counter = 0;
if ($properties->{$keyName} eq "new" || $properties->{$keyName} eq "") {