diff options
| author | Mark Wells <mark@freeside.biz> | 2013-05-05 16:44:26 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-05-05 16:44:45 -0700 |
| commit | 786d21e09d1f11c8976a8d45ef734d2d0a100ee7 (patch) | |
| tree | 1fea237df00454bceada22b02e703492f1b2459d /httemplate/edit/process/cust_location.cgi | |
| parent | 1daf1a670d3cdfb307271fb7c7c98c83fb1fb464 (diff) | |
allow certain minor location edits without moving packages, #940
Diffstat (limited to 'httemplate/edit/process/cust_location.cgi')
| -rw-r--r-- | httemplate/edit/process/cust_location.cgi | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/httemplate/edit/process/cust_location.cgi b/httemplate/edit/process/cust_location.cgi index 56c3968f6..fd1b8740e 100644 --- a/httemplate/edit/process/cust_location.cgi +++ b/httemplate/edit/process/cust_location.cgi @@ -28,12 +28,12 @@ my $cust_location = qsearchs({ }); die "unknown locationnum $locationnum" unless $cust_location; -my $new = FS::cust_location->new_or_existing({ +my $new = FS::cust_location->new({ custnum => $cust_location->custnum, prospectnum => $cust_location->prospectnum, map { $_ => scalar($cgi->param($_)) } FS::cust_main->location_fields }); - -my $error = $cust_location->move_to($new); +my $error = $new->find_or_insert; +$error ||= $cust_location->move_to($new); </%init> |