%if ( $error ) { % $cgi->param('error', $error); <% $cgi->redirect(popurl(2). "svc_acct_pop.cgi?". $cgi->query_string ) %> %} else { <% $cgi->redirect(popurl(3). "browse/svc_acct_pop.cgi") %> %} <%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Dialup configuration') || $curuser->access_right('Dialup global configuration'); my $popnum = $cgi->param('popnum'); my $old = qsearchs('svc_acct_pop',{'popnum'=>$popnum}) if $popnum; my $new = new FS::svc_acct_pop ( { map { $_, scalar($cgi->param($_)); } fields('svc_acct_pop') } ); my $error = ''; if ( $popnum ) { $error = $new->replace($old); } else { $error = $new->insert; $popnum=$new->getfield('popnum'); }