httemplate/misc/xmlhttp-part_pkg_usageprice.html

   1 <% encode_json( \@return ) %>\
   2 <%init>
   3
   4 my( $pkgpart ) = $cgi->param('arg');
   5
   6 #could worry about agent-virting this so you can't see the add-on pricing of
   7 # other agents, but not a real-world big worry
   8
   9 my $part_pkg = qsearchs( 'part_pkg', { pkgpart=>$pkgpart } );
  10
  11 my $num = 0;
  12
  13 my @return = map {
  14                    my @inc = ('/elements/cust_pkg_usageprice.html',
  15                                 'usagepricepart' => $_->usagepricepart,
  16                              );
  17
  18                    ( include(@inc, field=>'usagepricenum'.$num, html_only=>1 ),
  19                      include(@inc, field=>'usagepricenum'.$num++, js_only=>1 ),
  20                    );
  21                  }
  22                $part_pkg->part_pkg_usageprice;
  23
  24 </%init>