X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=e9d131a782a9aec48ba2579302b27decac456017;hb=346c32b847002357ecf79503d153186d0627aaa1;hp=c3d1804bcf53741e64f0be9980f9c9cb66e83047;hpb=b19897e1db4c110d7d7e8b52800cda5ab58ce9e0;p=freeside.git diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi index c3d1804bc..e9d131a78 100755 --- a/httemplate/edit/cust_main.cgi +++ b/httemplate/edit/cust_main.cgi @@ -1,452 +1,400 @@ -<% - - #for misplaced logic below - #use FS::part_pkg; +<& /elements/header.html, + $title, + '', + ' onUnload="myclose()"' #hmm, in billing.html +&> - #for false laziness below (now more properly lazy) - #use FS::svc_acct_pop; +<& /elements/error.html &> - #for (other) false laziness below - #use FS::agent; - #use FS::type_pkgs; +
-<% } 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'); - +my $conf = new FS::Conf; -