X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FSchema.pm;h=8ba60200edabb0fa3a2188e36956e74aa5f9d221;hb=df1ebf662a9fc3f89503036e0dbf6833c1b95f9e;hp=4e5a587709d859e2fb96904693a9a0c3e796b1b8;hpb=9c2f7147ea99459d69c7264a7a7c7a80f6f3d5a0;p=freeside.git diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index 4e5a58770..8ba60200e 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -3,7 +3,7 @@ package FS::Schema; 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; @@ -210,7 +210,7 @@ sub dbdef_dist { my %h_indices = (); - unless ( $table eq 'cust_event' ) { #others? + unless ( $table eq 'cust_event' || $table eq 'cdr' ) { #others? my %indices = $tableobj->indices;