X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=39cddc02198c0cd3f19924ffd79faa92775ae7aa;hb=8eb6542c022ac84b125416f3fb0828b278ba600a;hp=e10c85f01862ee2cd77b471c151d31afadeff904;hpb=cccd0b7cd38a88c131e19981be38434f87abe194;p=freeside.git diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi index e10c85f01..39cddc021 100755 --- a/httemplate/edit/cust_main.cgi +++ b/httemplate/edit/cust_main.cgi @@ -1,436 +1,370 @@ -<% - - #for misplaced logic below - #use FS::part_pkg; - - #for false laziness below (now more properly lazy) - #use FS::svc_acct_pop; - - #for (other) false laziness below - #use FS::agent; - #use FS::type_pkgs; - -my $conf = new FS::Conf; - -#get record +<& /elements/header.html, $title, &> + +<& /elements/error.html &> + +
-<% } else { %> +<& /elements/footer.html &> - +<%init> -<% } %> +my $curuser = $FS::CurrentUser::CurrentUser; - +#probably redundant given the checks below... +die "access denied" + unless $curuser->access_right('New customer') + || $curuser->access_right('Edit customer'); -