Bug 105480 - Use the friendly name from the fielddefs table when reporting strictvalue errors if it's available.

Patch by James A. Laska <jlaska@us.ibm.com>
r= justdave@syndicomm.com, jake@acutex.net

1 files changed, 9 insertions, 2 deletions

diff --git a/CGI.pl b/CGI.pl
index 80b6cb9ba..8061f791b 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -208,8 +208,15 @@ sub CheckFormField (\%$;\@) {
          (defined($legalsRef) && 
           lsearch($legalsRef, $formRef->{$fieldname})<0) ){
 
-        print "A legal $fieldname was not set; ";
-        print Param("browserbugmessage");
+        SendSQL("SELECT description FROM fielddefs WHERE name=" . SqlQuote($fieldname));
+        my $result = FetchOneColumn();
+        if ($result) {
+            PuntTryAgain("A legal $result was not set.");
+        }
+        else {
+            PuntTryAgain("A legal $fieldname was not set.");
+            print Param("browserbugmessage");
+        }
         PutFooter();
         exit 0;
       }