1 <% objToJson(\%hash) %>
4 my $locationnum = $cgi->param('arg');
6 my $cust_location = qsearchs({
7 'select' => 'cust_location.*',
8 'table' => 'cust_location',
9 'hashref' => { 'locationnum' => $locationnum },
10 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
11 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
15 %hash = map { $_ => $cust_location->$_() }
16 qw( address1 address2 city county state zip country )