<% 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); print header("$action Access Number", menubar( 'Main Menu' => popurl(2), 'View all Access Numbers' => popurl(2). "browse/svc_acct_pop.cgi", )); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print qq!
!; #display print qq!!, "POP #", $hashref->{popnum} ? $hashref->{popnum} : "(NEW)"; print < City State Area Code Exchange Local END print qq!
!; print < END %>