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

Fix syntax errors, and old Class::InsideOut data access.

Browse source
This commit is contained in:
Colin Kuskie 2010-10-22 16:19:05 -07:00
parent fd98f4acc4
commit 18bbebf0b8
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Crud.pm
View file

@ -28,15 +28,15 @@ use WebGUI::Exception;
has session => ( has session => (
is => 'ro', is => 'ro',
required => 1, required => 1,
) );
has lastUpdated => ( has lastUpdated => (
is => 'rw', is => 'rw',
) );
has sequenceNumber => ( has sequenceNumber => (
is => 'rw', is => 'rw',
) );
around BUILDARGS => sub { around BUILDARGS => sub {
my $orig = shift; my $orig = shift;
@ -69,7 +69,7 @@ around BUILDARGS => sub {
$clause = "where ".$db->quote_identifier($sequenceKey)."=?"; $clause = "where ".$db->quote_identifier($sequenceKey)."=?";
push @params, $data->{$sequenceKey}; push @params, $data->{$sequenceKey};
} }
my $sequenceNumber = $db->quickScalar("select max(sequenceNumber) from ".$dbh->quote_identifier($tableName)." $clause", \@params); my $sequenceNumber = $db->quickScalar("select max(sequenceNumber) from ".$db->quote_identifier($tableName)." $clause", \@params);
$sequenceNumber++; $sequenceNumber++;
my $now = WebGUI::DateTime->new($session, time())->toDatabase; my $now = WebGUI::DateTime->new($session, time())->toDatabase;
@ -557,7 +557,7 @@ sub demote {
if ($id ne "") { if ($id ne "") {
$db->write("update ".$dbh->quote_identifier($tableName)." set sequenceNumber=sequenceNumber+1 where ".$dbh->quote_identifier($tableKey)."=?",[$self->getId]); $db->write("update ".$dbh->quote_identifier($tableName)." set sequenceNumber=sequenceNumber+1 where ".$dbh->quote_identifier($tableKey)."=?",[$self->getId]);
$db->write("update ".$dbh->quote_identifier($tableName)." set sequenceNumber=sequenceNumber-1 where ".$dbh->quote_identifier($tableKey)."=?",[$id]); $db->write("update ".$dbh->quote_identifier($tableName)." set sequenceNumber=sequenceNumber-1 where ".$dbh->quote_identifier($tableKey)."=?",[$id]);
$objectData{id $self}{sequenceNumber}++; $self->sequenceNumber($self->sequenceNumber++);
} }
$db->commit; $db->commit;
return 1; return 1;
@ -822,7 +822,7 @@ sub promote {
if ($id ne "") { if ($id ne "") {
$db->write("update ".$dbh->quote_identifier($tableName)." set sequenceNumber=sequenceNumber-1 where ".$dbh->quote_identifier($tableKey)."=?", [$self->getId]); $db->write("update ".$dbh->quote_identifier($tableName)." set sequenceNumber=sequenceNumber-1 where ".$dbh->quote_identifier($tableKey)."=?", [$self->getId]);
$db->write("update ".$dbh->quote_identifier($tableName)." set sequenceNumber=sequenceNumber+1 where ".$dbh->quote_identifier($tableKey)."=?", [$id]); $db->write("update ".$dbh->quote_identifier($tableName)." set sequenceNumber=sequenceNumber+1 where ".$dbh->quote_identifier($tableKey)."=?", [$id]);
$objectData{id $self}{sequenceNumber}--; $self->sequenceNumber($self->sequenceNumber--);
} }
$db->commit; $db->commit;
return 1; return 1;