X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fsvc_acct_pop.cgi;h=5930a38be66d57ca4aa2bf2163c5b2c66aa50b74;hb=755969fa7279b58aa965a6f488060e80ad379689;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') %> + +
+ +<% 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!