% }
%# agent, agent_custid, refnum (advertising source), referral_custnum
% }
%# agent, agent_custid, refnum (advertising source), referral_custnum
'cust_main' => $cust_main,
'pre' => '',
'onchange' => 'bill_changed(this)',
'cust_main' => $cust_main,
'pre' => '',
'onchange' => 'bill_changed(this)',
-(<INPUT TYPE="checkbox" NAME="same" VALUE="Y" onClick="samechanged(this)" <%$same_checked%>>same as billing address)
-<% include('cust_main/contact.html',
+(<INPUT TYPE="checkbox" NAME="same" VALUE="Y" onClick="samechanged(this)" <%$same_checked%>><% mt('same as billing address') |h %>)
+<& cust_main/contact.html,
'cust_main' => $cust_main,
'pre' => 'ship_',
'onchange' => '',
'disabled' => $ship_disabled,
'style' => \@ship_style
'cust_main' => $cust_main,
'pre' => 'ship_',
'onchange' => '',
'disabled' => $ship_disabled,
'style' => \@ship_style
% my $ro_comments = $conf->exists('cust_main-use_comments')?'':'readonly';
% if (!$ro_comments || $cust_main->comments) {
% my $ro_comments = $conf->exists('cust_main-use_comments')?'':'readonly';
% if (!$ro_comments || $cust_main->comments) {
'pkgpart_svcpart' => $pkgpart_svcpart,
'disable_empty' =>
scalar( $cgi->param('lock_pkgpart') =~ /^(\d+)$/ ),
'pkgpart_svcpart' => $pkgpart_svcpart,
'disable_empty' =>
scalar( $cgi->param('lock_pkgpart') =~ /^(\d+)$/ ),
$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 );
$cgi->delete( grep !$keep{$_}, $cgi->param );
my $title = $custnum ? 'Edit Customer' : 'Add Customer';
$cgi->delete( grep !$keep{$_}, $cgi->param );
my $title = $custnum ? 'Edit Customer' : 'Add Customer';