% my $n = 0; % foreach my $class (@classes) { % my $pre = "feepartusagenum$n"; % my $x = $part_fee_usage{$class->classnum} || FS::part_fee_usage->new({}); <% $class->classname %>: <%$money_char%>amount) %>"> per call + percent) %>">% % $n++; % } <%init> my %opt = @_; my $value = $opt{'curr_value'} || $opt{'value'}; # values is an arrayref of part_fee_usage objects my %part_fee_usage = map { $_->classnum => $_ } @$value; my @classes = qsearch('usage_class', { disabled => '' }); my $money_char = FS::Conf->new->config('money_char') || '$';