[Rt-commit] r3247 - in DBIx-SearchBuilder/trunk: . SearchBuilder

[glasser at bestpractical.com]

Author: glasser
Date: Fri Jun 24 11:56:41 2005
New Revision: 3247

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm
Log:
 r35663 at tin-foil:  glasser | 2005-06-24 11:56:14 -0400
 Don't add columns for foreign keys!


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm	Fri Jun 24 11:56:41 2005
@@ -124,6 +124,10 @@
   
   # The sort here is to make it predictable, so that we can write tests.
   for my $field (sort keys %$schema) {
+    # Skip foreign keys
+    
+    next if defined $schema->{$field}->{'REFERENCES'} and defined $schema->{$field}->{'KEY'};
+    
     # TODO XXX FIXME
     # In lieu of real reference support, make references just integers
     $schema->{$field}{'TYPE'} = 'integer' if $schema->{$field}{'REFERENCES'};