diff options
| author | Mark Wells <mark@freeside.biz> | 2012-05-25 13:38:07 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2012-05-25 13:38:18 -0700 |
| commit | 01629c3c934f1f6fd2ab9de5f7638f671fd59791 (patch) | |
| tree | e20740d482c8ce8f47731b3213c65e7910e267f2 /httemplate/edit/process/cust_location.cgi | |
| parent | f2c26594352302de80c2cd0cbba8b0e2abada6f7 (diff) | |
customer bill/ship location refactoring, #940
Diffstat (limited to 'httemplate/edit/process/cust_location.cgi')
| -rw-r--r-- | httemplate/edit/process/cust_location.cgi | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/httemplate/edit/process/cust_location.cgi b/httemplate/edit/process/cust_location.cgi index 790fc8ea4..b9f93db8b 100644 --- a/httemplate/edit/process/cust_location.cgi +++ b/httemplate/edit/process/cust_location.cgi @@ -28,10 +28,12 @@ my $cust_location = qsearchs({ }); die "unknown locationnum $locationnum" unless $cust_location; -my $new = { +my $new = FS::cust_location->new({ + custnum => $cust_location->custnum, + prospectnum => $cust_location->prospectnum, map { $_ => scalar($cgi->param($_)) } qw( address1 address2 city county state zip country ) -}; +}); my $error = $cust_location->move_to($new); |