use Carp qw(carp);
-$DEBUG = 1;
+$DEBUG = 0;
$me = '[FS::cust_main::Location]';
my $init = 0;
no strict 'refs';
@location_fields =
qw( address1 address2 city county state zip country district
- latitude longitude coord_auto censustract censusyear geocode );
+ latitude longitude coord_auto censustract censusyear geocode
+ addr_clean );
foreach my $f (@location_fields) {
*{"FS::cust_main::Location::$f"} = sub {
# just in case someone still doesn't have these
if ( !$phone_type{$_}->phonetypenum ) {
$error = $phone_type{$_}->insert;
- die "error creating phone type '$_': $error";
+ die "error creating phone type '$_': $error" if $error;
}
}