Bug 105480 - Use the friendly name from the fielddefs table when reporting…

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

Bug 105480 - Use the friendly name from the fielddefs table when reporting…
1a2eccfb · jake%acutex.net · 7bf96883 · 1a2eccfb
Commit 1a2eccfb authored Oct 20, 2001 by jake%acutex.net
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 2 deletions

CGI.pl CGI.pl +9 -2

No files found.
--- 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;
      }