diff options
Diffstat (limited to 'httemplate/misc/location.cgi')
-rw-r--r-- | httemplate/misc/location.cgi | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/httemplate/misc/location.cgi b/httemplate/misc/location.cgi deleted file mode 100644 index 82ad636..0000000 --- a/httemplate/misc/location.cgi +++ /dev/null @@ -1,30 +0,0 @@ -<% objToJson(\%hash) %> -<%init> - -my $locationnum = $cgi->param('arg'); - -my $curuser = $FS::CurrentUser::CurrentUser; - -my $cust_location = qsearchs({ - 'select' => 'cust_location.*', - 'table' => 'cust_location', - 'hashref' => { 'locationnum' => $locationnum }, - 'addl_from' => ' LEFT JOIN cust_main USING ( custnum ) ', - ' LEFT JOIN prospect_main USING ( prospectnum ) ', - 'extra_sql' => ' AND ( '. - ' ( custnum IS NOT NULL AND '. - $curuser->agentnums_sql( table=>'cust_main' ). - ' ) '. - ' OR '. - ' ( prospectnum IS NOT NULL AND '. - $curuser->agentnums_sql( table=>'prospect_main' ). - ' ) '. - ' )', -}); - -my %hash = (); -%hash = map { $_ => $cust_location->$_() } - qw( address1 address2 city county state zip country ) - if $cust_location; - -</%init> |