diff options
Diffstat (limited to 'httemplate/REST/1.0/part_pkg')
-rw-r--r-- | httemplate/REST/1.0/part_pkg | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/httemplate/REST/1.0/part_pkg b/httemplate/REST/1.0/part_pkg new file mode 100644 index 000000000..c81b7b89b --- /dev/null +++ b/httemplate/REST/1.0/part_pkg @@ -0,0 +1,40 @@ +<% encode_rest($return) %>\ +<%init> + +rest_auth($cgi); + +my( $pkgpart, $command ) = split('/', rest_uri_remain($r, $m) ); + +my @fields = fields('part_pkg'); + +my $return = []; + +if ( $pkgpart ) { + + my $part_pkg = qsearchs('part_pkg', { 'pkgpart'=>$pkgpart } ) + or die "unknown pkgpart $pkgpart"; + + if ( $command eq '' ) { + + $return = $part_pkg->API_getinfo; + + } elsif ( $command eq 'customers' ) { + die 'XXX not yet implemented'; + #XXX redirect to a cust_main search? + } + +} else { + + my %hash = ( map { $_ => scalar($cgi->param($_)) } + qw( disabled classnum ) + ); + + my @part_pkg = qsearch('part_pkg', \%hash); + + $return = [ map $part_pkg->API_getinfo, @part_pkg ]; + +} + + + +</%init> |