- foreach my $field (@fields) {
- my $part_svc_column = $part_svc->part_svc_column($field);
- my $value = $cgi->param('error')
- ? $cgi->param("${svcdb}__${field}")
- : $part_svc_column->columnvalue;
- my $flag = $cgi->param('error')
- ? $cgi->param("${svcdb}__${field}_flag")
- : $part_svc_column->columnflag;
- #print "<TR>$ptmp<TD>$field";
- print "<TR><TD>$field";
- my $def = $defs{$svcdb}{$field};
- my $desc = ref($def) ? $def->{desc} : $def;
-
- print "- <FONT SIZE=-1>$desc</FONT>" if $desc;
- print "</TD>";
- print qq!<TD><INPUT TYPE="radio" NAME="${svcdb}__${field}_flag" VALUE=""!.
- ' CHECKED'x($flag eq ''). ">Off</TD>";
- print qq!<TD><INPUT TYPE="radio" NAME="${svcdb}__${field}_flag" VALUE="D"!.
- ' CHECKED'x($flag eq 'D'). ">Default ";
- print qq!<INPUT TYPE="radio" NAME="${svcdb}__${field}_flag" VALUE="F"!.
- ' CHECKED'x($flag eq 'F'). ">Fixed ";
- 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 'UNKNOWN TYPE '. $def->{type};
- }
- } else {
- print qq!<INPUT TYPE="text" NAME="${svcdb}__${field}" VALUE="$value">!;
- }
- print "</TD></TR>\n";
- #$ptmp='';
- }
- print "</TABLE>" unless $svcdb eq 'konq_kludge';