1 % unless ( $opt{'js_only'} ) {
3 <INPUT TYPE="hidden" NAME="<%$name%>" ID="<%$id%>" VALUE="<% $curr_value %>">
7 % foreach my $field ( @fields ) {
10 % $value = $item->get($field);
14 NAME = "<%$name%>_<%$field%>"
15 ID = "<%$id%>_<%$field%>"
16 SIZE = "<% $size{$field} || 15 %>"
17 VALUE = "<% scalar($cgi->param($name."_$field"))
21 <FONT SIZE="-1"><% $label{$field} %></FONT>
32 my $name = $opt{'element_name'} || $opt{'field'} || 'orderitemnum';
33 my $id = $opt{'id'} || 'orderitemnum';
35 my $curr_value = $opt{'curr_value'} || $opt{'value'};
38 if ( $opt{'onchange'} ) {
39 $onchange = $opt{'onchange'};
40 $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/;
41 $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack. all onchange
42 #callbacks should act the same
43 $onchange = 'onChange="'. $onchange. '"';
48 $item = qsearchs('did_order_item', { 'orderitemnum' => $curr_value } );
50 $item = new FS::did_order_item {};
53 my %size = ( 'npa' => 3,
58 tie my %label, 'Tie::IxHash',
61 'latanum' => 'LATA #',
62 'rate_center' => 'Rate Center',
64 'quantity' => 'Quantity',
67 my @fields = keys %label;