+ print '<BR>';
+ if ( ref($def) ) {
+ if ( $def->{type} eq 'select' ) {
+ print qq!<SELECT NAME="${svcdb}__${field}">!;
+ print '<OPTION>' unless $value;
+ foreach my $record ( qsearch( $def->{select_table}, {} ) ) {
+ my $rvalue = $record->getfield($def->{select_key});
+ print qq!<OPTION VALUE="$rvalue"!.
+ ( $rvalue==$value ? ' SELECTED>' : '>' ).
+ $record->getfield($def->{select_label});
+ }
+ } else {
+ print '<font color="#ff0000">unknown type'. $def->{type};
+ }
+ } else {
+ print qq!<INPUT TYPE="text" NAME="${svcdb}__${field}" VALUE="$value">!;
+ }
+ print "</TD></TR>\n";