diff options
Diffstat (limited to 'editcomponents.cgi')
| -rwxr-xr-x | editcomponents.cgi | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/editcomponents.cgi b/editcomponents.cgi index fc45b52c8..4ee147453 100755 --- a/editcomponents.cgi +++ b/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' |