SIZE = "3"
VALUE = "<% scalar($cgi->param($name."_quantity"))
|| $value |h %>"
+ <% $onchange %>
>
<BR><FONT SIZE="-1">Quantity</FONT>
</TD>
SIZE = "3"
VALUE = "<% scalar($cgi->param($name."_npa"))
|| $value |h %>"
+ <% $onchange %>
>
<BR><FONT SIZE="-1">NPA</FONT>
</TD>
<BR><FONT SIZE="-1">State</FONT>
</TD>
+% $value = $item->get('custnum');
+ <TD><INPUT TYPE = "text"
+ NAME = "<%$name%>_custnum"
+ ID = "<%$id%>_custnum"
+ SIZE = "7"
+ VALUE = "<% scalar($cgi->param($name."_custnum"))
+ || $value |h %>"
+ <% $onchange %>
+ >
+ <BR><FONT SIZE="-1">Customer #</FONT>
+ </TD>
+
</TR>
</TABLE>
my $curr_value = $opt{'curr_value'} || $opt{'value'};
+my $onchange = '';
+if ( $opt{'onchange'} ) {
+ $onchange = $opt{'onchange'};
+ $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/;
+ $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack. all onchange
+ #callbacks should act the same
+ $onchange = 'onChange="'. $onchange. '"';
+}
+
my $item;
if ( $curr_value ) {
$item = qsearchs('did_order_item', { 'orderitemnum' => $curr_value } );