From 8c3d7c4801742865298431a667e3c30edaf18715 Mon Sep 17 00:00:00 2001
From: "bbaetz%acm.org" <bbaetz%acm.org>
Date: Sun, 16 Mar 2003 06:16:43 +0000
Subject: [PATCH] Bug 197180 - Long comment names not flagged as an error
 r,a=justdave

---
 webtools/bugzilla/editcomponents.cgi | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/webtools/bugzilla/editcomponents.cgi b/webtools/bugzilla/editcomponents.cgi
index fc45b52c8ba..4ee147453fd 100755
--- a/webtools/bugzilla/editcomponents.cgi
+++ b/webtools/bugzilla/editcomponents.cgi
@@ -123,7 +123,7 @@ sub EmitFormElements ($$$$$)
                                              $initialqacontactid ? DBID_to_name ($initialqacontactid) : '');
 
     print "  <TH ALIGN=\"right\">Component:</TH>\n";
-    print "  <TD><INPUT SIZE=64 MAXLENGTH=255 NAME=\"component\" VALUE=\"" .
+    print "  <TD><INPUT SIZE=64 MAXLENGTH=64 NAME=\"component\" VALUE=\"" .
         value_quote($component) . "\">\n";
     print "      <INPUT TYPE=HIDDEN NAME=\"product\" VALUE=\"" .
         value_quote($product) . "\"></TD>\n";
@@ -386,6 +386,12 @@ if ($action eq 'new') {
         exit;
     }
 
+    if (length($component) > 64) {
+        print "Sorry, the name of a component is limited to 64 characters.";
+        PutTrailer($localtrailer);
+        exit;
+    }
+
     my $description = trim($::FORM{description} || '');
 
     if ($description eq '') {
@@ -710,6 +716,12 @@ if ($action eq 'update') {
     my $initialqacontact    = trim($::FORM{initialqacontact}    || '');
     my $initialqacontactold = trim($::FORM{initialqacontactold} || '');
 
+    if (length($component) > 64) {
+        print "Sorry, the name of a component is limited to 64 characters.";
+        PutTrailer($localtrailer);
+        exit;
+    }
+
     # Note that the order of this tests is important. If you change
     # them, be sure to test for WHERE='$component' or WHERE='$componentold'