diff --git a/lib/WebGUI/Crud.pm b/lib/WebGUI/Crud.pm index ce3850e0d..ba9a11856 100644 --- a/lib/WebGUI/Crud.pm +++ b/lib/WebGUI/Crud.pm @@ -31,8 +31,13 @@ sub create { # determine sequence my $sequenceKey = $class->crud_getSequenceKey; - my $clause = "where `".$sequenceKey."`" if ($sequenceKey); - my $sequenceNumber = $db->getScalar("select max(sequenceNumber) from `".$tableName."` $clause"); + my $clause; + my @params; + if ($sequenceKey) { + $clause = "where `".$sequenceKey."`=?"; + push @params, $properties->{$sequenceKey}; + } + my $sequenceNumber = $db->getScalar("select max(sequenceNumber) from `".$tableName."` $clause", \@params); $sequenceNumber++; # create object