1 <% encode_rest($return) %>\
6 my( $invnum, $command ) = split('/', rest_uri_remain($r, $m) );
8 my $cust_bill = qsearchs('cust_bill', { 'invnum'=>$invnum } )
9 or die "unknown invnum $invnum";
13 if ( $command eq '' ) {
15 my @fields = fields('cust_bill');
16 $return = +{ map { $_=>$cust_bill->$_ } @fields };
18 } elsif ( $command eq 'cust_bill_pkg' ) {
20 my @fields = fields('cust_bill_pkg');
21 $return = [ map { my $cust_bill_pkg = $_;
22 +{ map { $_=>$cust_bill_pkg->$_ } @fields };
24 $cust_bill->cust_bill_pkg