eval "use $class;";
die $@ if $@;
- $class->_upgrade_data(%opt)
- if $class->can('_upgrade_data');
+ if ( $class->can('_upgrade_data') ) {
+ $class->_upgrade_data(%opt);
+ } else {
+ warn "WARNING: asked for upgrade of $table,".
+ " but FS::$table has no _upgrade_data method\n";
+ }
# my @records = @{ $data->{$table} };
#
'reason_type' => [],
'reason' => [],
+ #need part_pkg before cust_credit...
+ 'part_pkg' => [],
+
#customer credits
'cust_credit' => [],
+ #duplicate history records
+ 'h_cust_svc' => [],
+
+ #populate cust_pay.otaker
+ 'cust_pay' => [],
+
+ #populate part_pkg_taxclass for starters
+ 'part_pkg_taxclass' => [],
;