use vars qw(@ISA @EXPORT_OK $DEBUG $setup_hack %dbdef_cache);
use subs qw(reload_dbdef);
use Exporter;
-use DBIx::DBSchema 0.42; #0.42 for foreign keys
+use DBIx::DBSchema 0.43; #0.43 for foreign keys
use DBIx::DBSchema::Table;
use DBIx::DBSchema::Column;
use DBIx::DBSchema::Index;
my %h_indices = ();
- unless ( $table eq 'cust_event' ) { #others?
+ unless ( $table eq 'cust_event' || $table eq 'cdr' ) { #others?
my %indices = $tableobj->indices;