}
my %keep = map { $_=>1 } qw( error tagnum lock_agentnum lock_pkgpart );
-$cgi->delete( grep { !$keep{$_} && $_ !~ /^tax_/ } $cgi->param );
+#$cgi->delete( grep { !$keep{$_} && $_ !~ /^tax_/ } $cgi->param );
+$cgi->delete( grep { !$keep{$_} && $_ !~ /^tax_/ && $_ !~ /^contactnum/ } $cgi->param );
my $title = $custnum ? 'Edit Customer' : 'Add Customer';
$title = mt($title);
'radius_usergroup' => $svc_join,
'phone_device' => $svc_join,
'cust_pkg_discount'=> $pkg_join,
- 'contact' => "JOIN cust_contact USING ( contactnum )",
);
%table_join = (%table_join, map { $_ => $svc_join } @svc_tables);
my %foundsvcs;
foreach my $table ( keys %tables ) {
- $extra_sql = ' AND cust_contact.custnum = '. $cust_main->custnum if $table eq 'contact';
my @items = qsearch({
'table' => "h_$table",
'addl_from' => $table_join{$table},