X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fsvc_acct_pop.cgi;h=5930a38be66d57ca4aa2bf2163c5b2c66aa50b74;hb=c5e31619e5a3071506cff19578e9e377753a96f4;hp=97d42f5be49166d7e73f6b297a9fefb5376c94d9;hpb=22a35047ecdffff80110e06cc08fc84f9ddba9b0;p=freeside.git diff --git a/httemplate/edit/svc_acct_pop.cgi b/httemplate/edit/svc_acct_pop.cgi index 97d42f5be..5930a38be 100755 --- a/httemplate/edit/svc_acct_pop.cgi +++ b/httemplate/edit/svc_acct_pop.cgi @@ -1,4 +1,37 @@ -<% +<% 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') ) { @@ -16,40 +49,5 @@ my $action = $svc_acct_pop->popnum ? 'Edit' : 'Add'; my $hashref = $svc_acct_pop->hashref; my $p1 = popurl(1); -print header("$action POP", menubar( - 'Main Menu' => popurl(2), - 'View all POPs' => 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 - -%> +