httemplate/view/cust_pkg-popup.html

   1 <& /elements/header-popup.html &>
   2 <TABLE STYLE="width: 100%">
   3 <& cust_main/packages/section.html,
   4   'cust_main' => $cust_main,
   5   'packages'  => [ $cust_pkg ],
   6   'cust_pkg-group_by_location' => 0,
   7   'no_services' => 1,
   8 &>
   9 </TABLE>
  10 </BODY>
  11 </HTML>
  12 <%init>
  13 my $curuser = $FS::CurrentUser::CurrentUser;
  14 my ($pkgnum) = $cgi->keywords;
  15 $pkgnum =~ /^\d+$/ or die "bad pkgnum $pkgnum";
  16
  17 my $cust_pkg = qsearchs({
  18   'table'     => 'cust_pkg',
  19   'addl_from' => 'JOIN cust_main USING (custnum)',
  20   'hashref'   => { 'pkgnum' => $pkgnum },
  21   'extra_sql' => ' AND '.$curuser->agentnums_sql,
  22 });
  23 die "Package not found" unless $cust_pkg;
  24 my $cust_main = $cust_pkg->cust_main;
  25
  26 my $title = mt('Package [_1]', $pkgnum);
  27 </%init>