% % %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 % %