summaryrefslogtreecommitdiff
path: root/httemplate/REST/1.0/part_pkg
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/REST/1.0/part_pkg')
-rw-r--r--httemplate/REST/1.0/part_pkg40
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>