-<!-- $Id: svc_acct.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ -->
<%
$cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
$cgi->param('_password',$old->getfield('_password'));
}
+#unmunge usergroup
+$cgi->param('usergroup', [ $cgi->param('radius_usergroup') ] );
+
my $new = new FS::svc_acct ( {
map {
$_, scalar($cgi->param($_));
#} qw(svcnum pkgnum svcpart username _password popnum uid gid finger dir
# shell quota slipip)
- } ( fields('svc_acct'), qw( pkgnum svcpart ) )
+ } ( fields('svc_acct'), qw( pkgnum svcpart usergroup ) )
} );
my $error;