2 my $curuser = $FS::CurrentUser::CurrentUser;
3 die "access denied" unless $curuser->access_right('Edit password');
5 $cgi->param('svcnum') =~ /^(\d+)$/ or die "illegal svcnum";
7 my $svc_acct = FS::svc_acct->by_key($svcnum)
8 or die "svc_acct $svcnum not found";
9 my $error = $svc_acct->set_password($cgi->param('password'))
10 || $svc_acct->replace;
12 # annoyingly specific to view/svc_acct.cgi, for now...
13 $cgi->delete('password');
16 % $cgi->param('svcnum', $svcnum);
17 % $cgi->param("changepw${svcnum}_error", $error);
19 % $cgi->query_string($svcnum);
21 <% $cgi->redirect($fsurl.'view/svc_acct.cgi?'.$cgi->query_string) %>