identical to the corresponding non-ship_ field. ouch.
sub check {
my $self = shift;
sub check {
my $self = shift;
+ warn "BEFORE: \n". $self->_dump;
+
my $error =
$self->ut_numbern('custnum')
|| $self->ut_number('agentnum')
my $error =
$self->ut_numbern('custnum')
|| $self->ut_number('agentnum')
+
+# bad idea to disable, causes billing to fail because of no tax rates later
+# unless ( $import ) {
unless ( qsearchs('cust_main_county', {
'country' => $self->country,
'state' => '',
unless ( qsearchs('cust_main_county', {
'country' => $self->country,
'state' => '',
'country' => $self->country,
} );
}
'country' => $self->country,
} );
}
$error =
$self->ut_phonen('daytime', $self->country)
$error =
$self->ut_phonen('daytime', $self->country)
if ( defined $self->dbdef_table->column('ship_last') ) {
if ( grep { $self->getfield($_) ne $self->getfield("ship_$_") } @addfields
if ( defined $self->dbdef_table->column('ship_last') ) {
if ( grep { $self->getfield($_) ne $self->getfield("ship_$_") } @addfields
- && grep $self->getfield("ship_$_"), grep $_ ne 'state', @addfields
+ && grep { $self->getfield("ship_$_") ne '' } @addfields
$self->otaker(getotaker);
$self->otaker(getotaker);
+ warn "AFTER: \n". $self->_dump;
+