httemplate/misc/part_svc-columns.cgi

   1 <% encode_json(\@output) %>\
   2 <%init>
   3
   4 my $conf = new FS::Conf;
   5
   6 my $pkgpart_svcpart = $cgi->param('arg');
   7 $pkgpart_svcpart =~ /^\d+_(\d+)$/;
   8 my $part_svc = qsearchs('part_svc', { 'svcpart' => $1 }) if $1;
   9
  10 my @output = map { ( $_->columnname, $_->columnflag, $_->columnvalue ) }
  11                  $part_svc->all_part_svc_column;
  12
  13 </%init>