httemplate/misc/xmlhttp-part_pkg.cgi

   1 <% encode_json( \@return ) %>\
   2 <%init>
   3
   4 # default returned records must maintain consistency with /elements/select-part_pkg.html
   5
   6 my $extra_sql = ' WHERE ' . FS::part_pkg->curuser_pkgs_sql;
   7
   8 # equivalent to agent_virt=1 and agent_null=1 in /elements/select-table.html
   9 $extra_sql .= ' AND ' .
  10   $FS::CurrentUser::CurrentUser->agentnums_sql(
  11     'null' => 1,
  12   );
  13
  14 my @records = qsearch( {
  15   'table'     => 'part_pkg',
  16   'hashref'   => {},
  17   'extra_sql' => $extra_sql,
  18   'order_by'  => "ORDER BY pkg",
  19 });
  20
  21 my @return = map {
  22   {
  23     'pkgpart'  => $_->pkgpart,
  24     'label'    => $_->pkg_comment_only,
  25     'disabled' => $_->disabled,
  26   }
  27 } @records;
  28
  29 print STDERR Dumper(\@return);
  30
  31 </%init>