Fixed scoping problem
This commit is contained in:
parent
b3ceea7566
commit
dbd1104279
1 changed files with 1 additions and 1 deletions
|
|
@ -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 "") {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue