1 % unless ( $opt{'js_only'} ) {
3 <INPUT TYPE="hidden" NAME="<%$name%>" ID="<%$id%>" VALUE="<% $curr_value %>">
7 % foreach my $field ( @fields ) {
9 % my $value = $rate_tier_detail->get($field);
12 <% $field eq 'min_charge' ? $money_char : '' %>
14 NAME = "<%$name%>_<%$field%>"
15 ID = "<%$id%>_<%$field%>"
16 SIZE = "<% $size{$field} || 15 %>"
17 STYLE = "text-align:right"
18 VALUE = "<% scalar($cgi->param($name."_$field"))
22 <FONT SIZE="-1"><% $label{$field} %></FONT>
33 my $conf = new FS::Conf;
34 my $money_char = $conf->config('money_char') || '$';
36 my $name = $opt{'element_name'} || $opt{'field'} || 'tierdetailnum';
37 my $id = $opt{'id'} || 'tierdetailnum';
39 my $curr_value = $opt{'curr_value'} || $opt{'value'};
42 if ( $opt{'onchange'} ) {
43 $onchange = $opt{'onchange'};
44 $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/;
45 $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack. all onchange
46 #callbacks should act the same
47 $onchange = 'onChange="'. $onchange. '"';
52 $rate_tier_detail = qsearchs('rate_tier_detail', { 'tierdetailnum' => $curr_value } );
54 $rate_tier_detail = new FS::rate_tier_detail {};
57 my %size = ( 'title' => 12 );
59 tie my %label, 'Tie::IxHash',
60 'min_quan' => 'Minimum quantity',
61 'min_charge' => 'Charge per minute/call',
64 my @fields = keys %label;