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 => ( has lastUpdated => (
is => 'rw', is => 'rw',
lazy => 1, lazy => 1,
builder => '_now'; builder => '_now',
); );
has dateCreated => ( has dateCreated => (
is => 'rw', is => 'rw',
lazy => 1, lazy => 1,
builder => '_now'; builder => '_now',
); );
sub _now { sub _now {
my $self = shift; my $self = shift;
return WebGUI::DateTime->new($session)->toDatabase; return WebGUI::DateTime->new($self->session)->toDatabase;
} }
has sequenceNumber => ( has sequenceNumber => (

8
t/Crud.t
View file

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