1 <% encode_json( \@return ) %>\
4 my( $pkgpart ) = $cgi->param('arg');
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
9 my $part_pkg = qsearchs( 'part_pkg', { pkgpart=>$pkgpart } );
14 my @inc = ('/elements/cust_pkg_usageprice.html',
15 'usagepricepart' => $_->usagepricepart,
18 ( include(@inc, field=>'usagepricenum'.$num, html_only=>1 ),
19 include(@inc, field=>'usagepricenum'.$num++, js_only=>1 ),
22 $part_pkg->part_pkg_usageprice;