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

Fix WebGUI::Crud to autowrite objects when created.

Browse source
This commit is contained in:
Colin Kuskie 2010-11-28 22:01:26 -08:00
parent ef3cbf3303
commit 0983362204
3 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Crud.pm
View file

@ -48,6 +48,11 @@ has sequenceNumber => (
default => 1,
);
has _dirty => (
is => 'rw',
default => 0,
);
sub _now {
my $self = shift;
return WebGUI::DateTime->new($self->session)->toDatabase;
@ -96,6 +101,7 @@ around BUILDARGS => sub {
$data->{session} = $session;
$data->{sequenceNumber} = $sequenceNumber;
$data->{$tableKey} = $data->{id} || $session->id->generate;
$data->{_dirty} = 1;
return $class->$orig($data);
}
@ -114,6 +120,13 @@ around BUILDARGS => sub {
return $class->$orig($data);
};
sub BUILD {
my $self = shift;
if ($self->_dirty) {
$self->write;
}
}
=head1 NAME
Package WebGUI::Crud
@ -967,6 +980,7 @@ sub write {
$data->{$sequenceKey} = $self->$sequenceKey;
}
$session->db->setRow($self->tableName, $self->tableKey, $data);
$self->_dirty(0);
}
1;