From 2e79a4b52fdc767cd2b855e598f6a389bef7e4c4 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 4 Nov 2010 16:48:12 -0700
Subject: [PATCH] Remove code autogeneration for table,sequence keys.

---
 lib/WebGUI/Crud.pm | 6 +++---
 t/Crud.t           | 8 ++++++--
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/Crud.pm b/lib/WebGUI/Crud.pm
index 07f6dd37d..49dff756e 100644
--- a/lib/WebGUI/Crud.pm
+++ b/lib/WebGUI/Crud.pm
@@ -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 => (
diff --git a/t/Crud.t b/t/Crud.t
index d569a5540..f2b037042 100644
--- a/t/Crud.t
+++ b/t/Crud.t
@@ -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");