blob: c81b7b89b0e9d395d45cf82d9b9ea4956aa4d4b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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>
|
