httemplate/misc/xmlhttp-cust_bill-search.html

   1 <% encode_json(\@return) %>
   2 <%init>
   3
   4 my $curuser = $FS::CurrentUser::CurrentUser;
   5 die 'access denied' unless $curuser->access_right('View invoices');
   6 my @return;
   7 if ( $cgi->param('sub') eq 'custnum_search_open' ) {
   8   my $custnum = $cgi->param('arg');
   9   #warn "searching invoices for $custnum\n";
  10   my $cust_main = FS::cust_main->by_key($custnum);
  11   @return = map {
  12     +{ $_->hash,
  13       'owed' => $_->owed }
  14   } $cust_main->open_cust_bill
  15     if $curuser->agentnums_href->{ $cust_main->agentnum };
  16 }
  17
  18 </%init>