% push @ship_style, 'background-color:#dddddd';
% foreach (
% qw( last first company address1 address2 city county state zip country
% push @ship_style, 'background-color:#dddddd';
% foreach (
% qw( last first company address1 address2 city county state zip country
% daytime night fax mobile )
% ) {
% $cust_main->set("ship_$_", $cust_main->get($_) );
% daytime night fax mobile )
% ) {
% $cust_main->set("ship_$_", $cust_main->get($_) );
% 'payinfo', 'payinfo1', 'payinfo2', 'payinfo3', 'paytype',
% 'payname', 'paystate', 'exp_month', 'exp_year', 'paycvv',
% 'paystart_month', 'paystart_year', 'payissue',
% 'payinfo', 'payinfo1', 'payinfo2', 'payinfo3', 'paytype',
% 'payname', 'paystate', 'exp_month', 'exp_year', 'paycvv',
% 'paystart_month', 'paystart_year', 'payissue',
my $cust_location = $qual->cust_location;
$cust_location->dealternize;
$cust_main->$_( $cust_location->$_ )
my $cust_location = $qual->cust_location;
$cust_location->dealternize;
$cust_main->$_( $cust_location->$_ )