[Rt-commit] r2990 - in DBIx-SearchBuilder/trunk: . SearchBuilder ex/Example/Model

[glasser at bestpractical.com]

Author: glasser
Date: Mon May 30 23:09:13 2005
New Revision: 2990

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm
   DBIx-SearchBuilder/trunk/ex/Example/Model/Address.pm
Log:
 r33519 at stratton-five-seventy:  glasser | 2005-05-30 23:08:57 -0400
 Stub support for REFERENCES


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm	Mon May 30 23:09:13 2005
@@ -111,6 +111,10 @@
   
   # The sort here is to make it predictable, so that we can write tests.
   for my $field (sort keys %$schema) {
+    # TODO XXX FIXME
+    # In lieu of real reference support, make references just integers
+    $schema->{$field}{'TYPE'} = 'integer' if $schema->{$field}{'REFERENCES'};
+    
     push @cols, DBIx::DBSchema::Column->new({
       name => $field,
       type => $schema->{$field}{'TYPE'},

Modified: DBIx-SearchBuilder/trunk/ex/Example/Model/Address.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/ex/Example/Model/Address.pm	(original)
+++ DBIx-SearchBuilder/trunk/ex/Example/Model/Address.pm	Mon May 30 23:09:13 2005
@@ -12,7 +12,7 @@
     return {
         Name => { TYPE => 'varchar', },
         Phone => { TYPE => 'varchar', },
-#        EmployeeId => { REFERENCES => 'Example::Model::Employee', },
+        EmployeeId => { REFERENCES => 'Example::Model::Employee', },
     }
 }