[freeside-commits] freeside/FS/FS Schema.pm,1.239.2.52,1.239.2.53

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv25773

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	Schema.pm 
Log Message:
fix missing banned_pay index

Index: Schema.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Schema.pm,v
retrieving revision 1.239.2.52
retrieving revision 1.239.2.53
diff -u -w -d -r1.239.2.52 -r1.239.2.53
--- Schema.pm	15 Jul 2011 21:10:19 -0000	1.239.2.52
+++ Schema.pm	20 Jul 2011 13:46:10 -0000	1.239.2.53
@@ -117,6 +117,7 @@
     #false laziness w/sub indices in DBIx::DBSchema::DBD (well, sorta)
     #and sub sql_create_table in DBIx::DBSchema::Table (slighty more?)
     my $unique = $tables_hashref->{$tablename}{'unique'};
+    warn "missing index for $tablename\n" unless defined $tables_hashref->{$tablename}{'index'};
     my @index  = @{ $tables_hashref->{$tablename}{'index'} };
 
     # kludge to avoid avoid "BLOB/TEXT column 'statustext' used in key