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

Remove code autogeneration for table,sequence keys.

Browse source
This commit is contained in:
Colin Kuskie 2010-11-04 16:48:12 -07:00
parent 06b2fbc4ab
commit 2e79a4b52f
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Crud.pm
View file

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

8
t/Crud.t
View file

@ -30,8 +30,11 @@ extends 'WebGUI::Crud';
define tableName => 'some_crud_table';
define tableKey => 'id';
has id => (
is => 'ro',
property id => (
required => 1,
is => 'ro',
label => 'id',
fieldType => 'hidden',
);
package main;
@ -68,6 +71,7 @@ $sth->finish;
# check data
my $record1 = WebGUI::Cruddy->new($session);
can_ok($record1, 'id');
isa_ok($record1, "WebGUI::Crud", "isa WebGUI::Crud");
like($record1->get('dateCreated'), qr/\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2}/, "dateCreated looks like a date");
like($record1->get('lastUpdated'), qr/\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2}/, "lastUpdated looks like a date");