%#unmunge usergroup
%$cgi->param('usergroup', [ $cgi->param('radius_usergroup') ] );
%
-%my $new = new FS::svc_acct ( {
-% map {
-% $_, scalar($cgi->param($_));
+%my %hash = $svcnum ? $old->hash : ();
+%map {
+% $hash{$_} = scalar($cgi->param($_));
% #} qw(svcnum pkgnum svcpart username _password popnum uid gid finger dir
% # shell quota slipip)
-% } ( fields('svc_acct'), qw( pkgnum svcpart usergroup ) )
-%} );
+% } (fields('svc_acct'), qw ( pkgnum svcpart usergroup ));
+%my $new = new FS::svc_acct ( \%hash );
%
%my $error;
%if ( $svcnum ) {