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

Add the sequenceNumber property to Crud, and serialize it to the db. Tweak some tests for new code.

Browse source
This commit is contained in:
Colin Kuskie 2010-11-05 08:17:06 -07:00
parent 213a153b58
commit 447fe27d5f
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Crud.pm
View file

@ -42,6 +42,11 @@ has dateCreated => (
builder => '_now',
);
has sequenceNumber => (
is => 'rw',
default => 1,
);
sub _now {
my $self = shift;
return WebGUI::DateTime->new($self->session)->toDatabase;
@ -973,9 +978,10 @@ sub write {
$data->{$property_name} = $value;
}
my $tableKey = $self->meta->tableKey;
$data->{$tableKey} = $self->$tableKey;
$data->{lastUpdated} = $self->lastUpdated;
$data->{dateCreated} = $self->dateCreated;
$data->{$tableKey} = $self->$tableKey;
$data->{lastUpdated} = $self->lastUpdated;
$data->{dateCreated} = $self->dateCreated;
$data->{sequenceNumber} = $self->sequenceNumber;
if (my $sequenceKey = $self->meta->sequenceKey) {
$data->{$sequenceKey} = $self->$sequenceKey;
}

3
t/Crud.t
View file

@ -69,6 +69,7 @@ $sth->finish;
# check data
my $record1 = WebGUI::Cruddy->new($session);
$record1->write;
can_ok($record1, 'id');
isa_ok($record1, "WebGUI::Crud", "isa WebGUI::Crud");
like($record1->dateCreated, qr/\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2}/, "dateCreated looks like a date");
@ -159,6 +160,6 @@ while (my $object = $iterator->()) {
is(ref WebGUI::Cruddy->crud_getProperties($session), 'HASH', 'properties work');
is(WebGUI::Cruddy->crud_getTableKey($session), 'id', 'default key is id');
is(WebGUI::Cruddy->crud_getTableName($session), 'some_crud_table', 'default table is some_crud_table');
is(WebGUI::Cruddy->crud_getSequenceKey($session), '', 'default sequence key is blank');
is(WebGUI::Cruddy->crud_getSequenceKey($session), undef, 'default sequence key is blank');
#vim:ft=perl