From: ivan <ivan>
Date: Mon, 18 Feb 2002 20:09:12 +0000 (+0000)
Subject: bad warning, causing errors with strict
X-Git-Tag: freeside_1_4_0pre11~37
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=0ab8b21b9b39d9349c94e6cea10dbb006ff176a5

bad warning, causing errors with strict
---

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>' : '>' ).