$stateid = $cust_main->stateid; # don't mask an entered value on errors
$payinfo = $cust_main->payinfo; # don't mask an entered value on errors
$stateid = $cust_main->stateid; # don't mask an entered value on errors
$payinfo = $cust_main->payinfo; # don't mask an entered value on errors
my $contact = $contacts[0];
$cust_main->first( $contact->first );
$cust_main->set( 'last', $contact->get('last') );
my $contact = $contacts[0];
$cust_main->first( $contact->first );
$cust_main->set( 'last', $contact->get('last') );
#location -> address (all prospect quals have location, right?)
my $cust_location = $qual->cust_location;
#location -> address (all prospect quals have location, right?)
my $cust_location = $qual->cust_location;
$cust_main->$_( $cust_location->$_ )
foreach qw( address1 address2 city county state zip country geocode );
$cust_main->$_( $cust_location->$_ )
foreach qw( address1 address2 city county state zip country geocode );