httemplate/view/cust_pkg.cgi

   1 <% $cgi->redirect($path) %>
   2 <%init>
   3 # since cust_pkgs can't be viewed directly, just throw a redirect
   4 my ($pkgnum) = $cgi->keywords;
   5 $pkgnum =~ /^\d+$/ or die "invalid pkgnum '$pkgnum'";
   6 my $show = $FS::CurrentUser::CurrentUser->default_customer_view =~ /^(jumbo|packages)$/ ? '' : ';show=packages';
   7
   8 my $self = FS::cust_pkg->by_key($pkgnum) or die "pkgnum $pkgnum not found";
   9 my $frag = 'cust_pkg'. $self->pkgnum;
  10 my $path = $p.'view/cust_main.cgi?custnum='.$self->custnum.";$show#$frag";
  11 </%init>