From: Allen Day <allenday@users.sourceforge.net>
Date: Wed, 9 Jul 2003 06:09:56 +0000 (+0000)
Subject: commenting shortcoming
X-Git-Tag: v0.04~377
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae57c892c091f68ce0e5bab7299829f4bcba172a;p=dbsrgits%2FSQL-Translator.git

commenting shortcoming
---

diff --git a/lib/SQL/Translator/Producer/ClassDBI.pm b/lib/SQL/Translator/Producer/ClassDBI.pm
index 52b0126..a823c79 100755
--- a/lib/SQL/Translator/Producer/ClassDBI.pm
+++ b/lib/SQL/Translator/Producer/ClassDBI.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::ClassDBI;
 
 # -------------------------------------------------------------------
-# $Id: ClassDBI.pm,v 1.26 2003-07-09 05:59:24 allenday Exp $
+# $Id: ClassDBI.pm,v 1.27 2003-07-09 06:09:56 allenday Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2003 Allen Day <allenday@ucla.edu>,
 #                    Ying Zhang <zyolive@yahoo.com>
@@ -23,7 +23,7 @@ package SQL::Translator::Producer::ClassDBI;
 
 use strict;
 use vars qw[ $VERSION $DEBUG ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.26 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.27 $ =~ /(\d+)\.(\d+)/;
 $DEBUG   = 1 unless defined $DEBUG;
 
 use SQL::Translator::Schema::Constants;
@@ -225,6 +225,8 @@ sub produce {
 			   } elsif(scalar(@lk_fields) == 1){
 				 #these will be taken care of on the other end...
 			   } else {
+				 #many many many.  need multiple iterations here, data structure revision
+				 #to handle N FK sources
 				 foreach my $rk_field (@rk_fields){
 				   push @{ $packages{ $table_pkg_name }{'has_many'} },
 					 "sub " . $linkable{$table_name}{$link}->name . "_" . $rk_field .