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

Add defaults for lastUpdated, dateCreated. Crud data now has to be manually written to the db.

Browse source
This commit is contained in:
Colin Kuskie 2010-11-04 15:11:04 -07:00
parent 6686860b08
commit b4abac9a40
2 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Crud.pm
View file

@ -32,12 +32,21 @@ has session => (
has lastUpdated => ( has lastUpdated => (
is => 'rw', is => 'rw',
lazy => 1,
builder => '_now';
); );
has dateCreated => ( has dateCreated => (
is => 'rw', is => 'rw',
lazy => 1,
builder => '_now';
); );
sub _now {
my $self = shift;
return WebGUI::DateTime->new($session)->toDatabase;
}
has sequenceNumber => ( has sequenceNumber => (
is => 'rw', is => 'rw',
); );

5
t/Crud.t
View file

@ -31,7 +31,7 @@ define tableName => 'some_crud_table';
define tableKey => 'id'; define tableKey => 'id';
has id => ( has id => (
is => 'ro', is => 'ro',
); );
package main; package main;
@ -81,7 +81,8 @@ is($record2->get('id'),'theshawshankredemption',"custom id works");
$record2->delete; $record2->delete;
# instanciation # instanciation
my $record2 = WebGUI::Cruddy->new($session); $record2 = WebGUI::Cruddy->new($session);
$record2->write;
isnt($record1->getId, $record2->getId, "can retrieve unique rows"); isnt($record1->getId, $record2->getId, "can retrieve unique rows");
my $copyOfRecord2 = WebGUI::Cruddy->new($session, $record2->getId); my $copyOfRecord2 = WebGUI::Cruddy->new($session, $record2->getId);
is($record2->getId, $copyOfRecord2->getId, "can reinstanciate record"); is($record2->getId, $copyOfRecord2->getId, "can reinstanciate record");