oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed a sequencing problem

Browse source
This commit is contained in:
JT Smith 2008-09-19 21:49:08 +00:00
parent 345ee214f2
commit 0095452ebc
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Crud.pm
View file

@ -31,8 +31,13 @@ sub create {
# determine sequence # determine sequence
my $sequenceKey = $class->crud_getSequenceKey; my $sequenceKey = $class->crud_getSequenceKey;
my $clause = "where `".$sequenceKey."`" if ($sequenceKey); my $clause;
my $sequenceNumber = $db->getScalar("select max(sequenceNumber) from `".$tableName."` $clause"); my @params;
if ($sequenceKey) {
$clause = "where `".$sequenceKey."`=?";
push @params, $properties->{$sequenceKey};
}
my $sequenceNumber = $db->getScalar("select max(sequenceNumber) from `".$tableName."` $clause", \@params);
$sequenceNumber++; $sequenceNumber++;
# create object # create object