bad warning, causing errors with strict

diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index 918e6ab..57ab398 100755 (executable)
--- a/httemplate/edit/part_svc.cgi
+++ b/httemplate/edit/part_svc.cgi
@@ -224,7 +224,6 @@ function fixup(what) {
         print qq!<SELECT NAME="${svcdb}__${field}">!;
         print '<OPTION> </OPTION>' unless $value;
         foreach my $record ( qsearch( $def->{select_table}, {} ) ) {
         print qq!<SELECT NAME="${svcdb}__${field}">!;
         print '<OPTION> </OPTION>' unless $value;
         foreach my $record ( qsearch( $def->{select_table}, {} ) ) {

-          warn $rvalue;

           my $rvalue = $record->getfield($def->{select_key});
           print qq!<OPTION VALUE="$rvalue"!.
                 ( $rvalue==$value ? ' SELECTED>' : '>' ).
           my $rvalue = $record->getfield($def->{select_key});
           print qq!<OPTION VALUE="$rvalue"!.
                 ( $rvalue==$value ? ' SELECTED>' : '>' ).