From 0ab8b21b9b39d9349c94e6cea10dbb006ff176a5 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 18 Feb 2002 20:09:12 +0000
Subject: [PATCH] bad warning, causing errors with strict

---
 httemplate/edit/part_svc.cgi | 1 -
 1 file changed, 1 deletion(-)

diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index 918e6ab9c..57ab3985e 100755
--- 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}, {} ) ) {
-          warn $rvalue;
           my $rvalue = $record->getfield($def->{select_key});
           print qq!<OPTION VALUE="$rvalue"!.
                 ( $rvalue==$value ? ' SELECTED>' : '>' ).
-- 
2.11.0