diff options
| author | jeff <jeff> | 2006-12-05 02:37:14 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2006-12-05 02:37:14 +0000 |
| commit | bc392247350c4a124c8835f18dd19154ac343e9d (patch) | |
| tree | dd4f27ebfbfa764c71ca56d612a011c2771c39ba /httemplate/edit/process | |
| parent | 5cb3aee153f8fd73defe6bfceef5983241739348 (diff) | |
editable service usage
Diffstat (limited to 'httemplate/edit/process')
| -rwxr-xr-x | httemplate/edit/process/svc_acct.cgi | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/httemplate/edit/process/svc_acct.cgi b/httemplate/edit/process/svc_acct.cgi index 247a5b446..30552c846 100755 --- a/httemplate/edit/process/svc_acct.cgi +++ b/httemplate/edit/process/svc_acct.cgi @@ -23,13 +23,13 @@ %#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 ) { |