- print "$svcdb" unless $svcdb eq 'konq_kludge';
- print "<BR><TABLE BORDER=1><TH>Field</TH><TH COLSPAN=2>Modifier</TH>" unless $svcdb eq 'konq_kludge';
-
- my($row);
- foreach $row (@rows) {
- my $value = $part_svc->getfield($svcdb. '__'. $row);
- my $flag = $part_svc->getfield($svcdb. '__'. $row. '_flag');
- #print "<TR>$ptmp<TD>$row";
- print "<TR><TD>$row";
- print "- <FONT SIZE=-1>$defs{$svcdb}{$row}</FONT>"
- if defined $defs{$svcdb}{$row};
+ #print "$svcdb<BR>" unless $svcdb eq 'konq_kludge';
+ print table(). "<TH>Field</TH><TH COLSPAN=2>Modifier</TH>" unless $svcdb eq 'konq_kludge';
+
+ 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;