From 1a2eccfb5aedd00f469c3dc2395663eb455ea32e Mon Sep 17 00:00:00 2001
From: "jake%acutex.net" <>
Date: Sat, 20 Oct 2001 07:50:27 +0000
Subject: 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

---
 CGI.pl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'CGI.pl')

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;
       }
-- 
cgit v1.2.3-24-g4f1b