httemplate/REST/1.0/part_pkg

   1 <% encode_rest($return) %>\
   2 <%init>
   3
   4 rest_auth($cgi);
   5
   6 my( $pkgpart, $command ) = split('/', rest_uri_remain($r, $m) );
   7
   8 my @fields = fields('part_pkg');
   9
  10 my $return = [];
  11
  12 if ( $pkgpart ) {
  13
  14   my $part_pkg = qsearchs('part_pkg', { 'pkgpart'=>$pkgpart } )
  15     or die "unknown pkgpart $pkgpart";
  16
  17   if ( $command eq '' ) {
  18
  19     $return = $part_pkg->API_getinfo;
  20
  21   } elsif ( $command eq 'customers' ) {
  22      die 'XXX not yet implemented';
  23      #XXX redirect to a cust_main search?
  24   }
  25
  26 } else {
  27
  28   my %hash = ( map { $_ => scalar($cgi->param($_)) }
  29                  qw( disabled classnum )
  30              );
  31
  32   my @part_pkg = qsearch('part_pkg', \%hash);
  33
  34   $return = [ map $part_pkg->API_getinfo, @part_pkg ];
  35
  36 }
  37
  38
  39
  40 </%init>