From c13b6c8f4b9876aa8f91e1c14d3c208ac0d189e9 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Fri, 10 Mar 2017 07:03:36 -0800 Subject: remove old test files --- httemplate/view/cust_pkg.cgi | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'httemplate/view/cust_pkg.cgi') diff --git a/httemplate/view/cust_pkg.cgi b/httemplate/view/cust_pkg.cgi index d8a0041ee..4e036496a 100755 --- a/httemplate/view/cust_pkg.cgi +++ b/httemplate/view/cust_pkg.cgi @@ -1,11 +1,14 @@ -<% $cgi->redirect($path) %> +<& /elements/header-cust_main.html, + view => 'packages', + custnum => $cust_pkg->custnum, +&> + +<& /elements/footer-cust_main.html &> <%init> -# since cust_pkgs can't be viewed directly, just throw a redirect + my ($pkgnum) = $cgi->keywords; $pkgnum =~ /^\d+$/ or die "invalid pkgnum '$pkgnum'"; -my $show = $FS::CurrentUser::CurrentUser->default_customer_view =~ /^(jumbo|packages)$/ ? '' : ';show=packages'; -my $self = FS::cust_pkg->by_key($pkgnum) or die "pkgnum $pkgnum not found"; -my $frag = 'cust_pkg'. $self->pkgnum; -my $path = $p.'view/cust_main.cgi?custnum='.$self->custnum.";$show#$frag"; +my $cust_pkg = FS::cust_pkg->by_key($pkgnum) or die "pkgnum $pkgnum not found"; + -- cgit v1.2.1