<% include('/elements/header.html', "$action Access Number", menubar( 'View all Access Numbers' => popurl(2). "browse/svc_acct_pop.cgi", )) %> <% include('/elements/error.html') %>
Access Number #<% $hashref->{popnum} ? $hashref->{popnum} : "(NEW)" %>
City      
State     
Area Code 
Exchange  
Local     

">
<% include('/elements/footer.html') %> <%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Dialup configuration') || $curuser->access_right('Dialup global configuration'); my $svc_acct_pop; if ( $cgi->param('error') ) { $svc_acct_pop = new FS::svc_acct_pop ( { map { $_, scalar($cgi->param($_)) } fields('svc_acct_pop') } ); } elsif ( $cgi->keywords ) { #editing my($query)=$cgi->keywords; $query =~ /^(\d+)$/; $svc_acct_pop=qsearchs('svc_acct_pop',{'popnum'=>$1}); } else { #adding $svc_acct_pop = new FS::svc_acct_pop {}; } my $action = $svc_acct_pop->popnum ? 'Edit' : 'Add'; my $hashref = $svc_acct_pop->hashref; my $p1 = popurl(1);