unless ( exists $dbdef_cache{$file} ) {
warn "[debug]$me loading dbdef for $file\n" if $DEBUG;
$dbdef_cache{$file} = DBIx::DBSchema->load( $file )
- or die "can't load database schema from $file: $DBIx::DBSchema::errstr";
+ or die "can't load database schema from $file: $DBIx::DBSchema::errstr\n";
} else {
warn "[debug]$me re-using cached dbdef for $file\n" if $DEBUG;
}
'index' => [ [ 'paynum' ], [ 'invnum' ] ],
},
+ 'cust_bill_pay_batch' => {
+ 'columns' => [
+ 'billpaynum', 'serial', '', '', '', '',
+ 'invnum', 'int', '', '', '', '',
+ 'paybatchnum', 'int', '', '', '', '',
+ 'amount', @money_type, '', '',
+ '_date', @date_type, '', '',
+ ],
+ 'primary_key' => 'billpaynum',
+ 'unique' => [],
+ 'index' => [ [ 'paybatchnum' ], [ 'invnum' ] ],
+ },
+
'cust_bill_pay_pkg' => {
'columns' => [
'billpaypkgnum', 'serial', '', '', '', '',