diff options
author | mark <mark> | 2010-12-14 07:29:13 +0000 |
---|---|---|
committer | mark <mark> | 2010-12-14 07:29:13 +0000 |
commit | f424f11eb366fe64f5f7bb42b21745e22537cab1 (patch) | |
tree | 753152c3f27fb84ef5757fb59d0567ff0eabae2b /httemplate/edit/process/cust_location.cgi | |
parent | 93f811c014058da26e734fc621028741b156c5d7 (diff) |
cust_location editing features, RT#10766
Diffstat (limited to 'httemplate/edit/process/cust_location.cgi')
-rw-r--r-- | httemplate/edit/process/cust_location.cgi | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/httemplate/edit/process/cust_location.cgi b/httemplate/edit/process/cust_location.cgi new file mode 100644 index 000000000..790fc8ea4 --- /dev/null +++ b/httemplate/edit/process/cust_location.cgi @@ -0,0 +1,38 @@ +% if ($error) { +% $cgi->param('error', Dumper($error)); +% $cgi->redirect(popurl(3). 'edit/cust_location.cgi?'. $cgi->query_string ); +% } else { + + <% header("Location changed") %> + <SCRIPT TYPE="text/javascript"> + window.top.location.reload(); + </SCRIPT> + </BODY> + </HTML> + +% } +<%init> + +my $curuser = $FS::CurrentUser::CurrentUser; + +die "access denied" + unless $curuser->access_right('Change customer package'); + +my $locationnum = $cgi->param('locationnum'); +my $cust_location = qsearchs({ + 'select' => 'cust_location.*', + 'table' => 'cust_location', + 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', + 'hashref' => { 'locationnum' => $locationnum }, + 'extra_sql' => ' AND '. $curuser->agentnums_sql, +}); +die "unknown locationnum $locationnum" unless $cust_location; + +my $new = { + map { $_ => scalar($cgi->param($_)) } + qw( address1 address2 city county state zip country ) +}; + +my $error = $cust_location->move_to($new); + +</%init> |