httemplate/REST/1.0/cust_bill

   1 <% encode_rest($return) %>\
   2 <%init>
   3
   4 rest_auth($cgi);
   5
   6 my( $invnum, $command ) = split('/', rest_uri_remain($r, $m) );
   7
   8 my $cust_bill = qsearchs('cust_bill', { 'invnum'=>$invnum } )
   9   or die "unknown invnum $invnum";
  10
  11 my $return = [];
  12
  13 if ( $command eq '' ) {
  14
  15   my @fields = fields('cust_bill');
  16   $return = +{ map { $_=>$cust_bill->$_ } @fields };
  17
  18 } elsif ( $command eq 'cust_bill_pkg' ) {
  19
  20   my @fields = fields('cust_bill_pkg');
  21   $return = [ map { my $cust_bill_pkg = $_;
  22                     +{ map { $_=>$cust_bill_pkg->$_ } @fields };
  23                   }
  24                 $cust_bill->cust_bill_pkg
  25             ];
  26 }
  27
  28 </%init>