% } else {
% }
% # permission to edit
% if ( $conf->exists('cust_main-edit_calling_list_exempt') ) {
calling_list_exempt ? 'CHECKED' : '' %>>
<% mt('Calling list exempt') |h %>
% } else {
% }
<%init>
my( $cust_main, %opt ) = @_;
my $custnum = $opt{'custnum'};
my $conf = new FS::Conf;
my $curuser = $FS::CurrentUser::CurrentUser;
my $r = qq!* !;
# which agents lock the service address, if any
my %ship_locked_agents;
foreach (qsearch('agent',{})) {
my $agentnum = $_->agentnum;
next unless $conf->exists('agent-ship_address', $_->agentnum);
my $agent_cust_main = $_->agent_cust_main or next;
my $pre = '';
$pre = 'ship_' if $agent_cust_main->has_ship_address;
$ship_locked_agents{$agentnum} = +{
map { $_ => $agent_cust_main->get($pre.$_) }
qw(address1 city state zip country latitude longitude)
};
}
%init>