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