[tools] testbot/web: Highlight the submit page's File and Branch fields if invalid.

[Francois Gouget]

Unlike the other fields, these two fields are generated by the submit
page itself.

Signed-off-by: Francois Gouget 
---
 testbot/web/Submit.pl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/testbot/web/Submit.pl b/testbot/web/Submit.pl
index ca225b615d..c5423c7951 100644
--- a/testbot/web/Submit.pl
+++ b/testbot/web/Submit.pl
@@ -77,7 +77,7 @@ sub _Upload($)
     {
       umask($OldUMask);
       delete $self->{FileName};
-      $self->{ErrField} = "Upload";
+      $self->{ErrField} = "File";
       $self->{ErrMessage} = "Unable to save the uploaded file";
       return undef;
     }
@@ -85,7 +85,7 @@ sub _Upload($)
   else
   {
     delete $self->{FileName};
-    $self->{ErrField} = "Upload";
+    $self->{ErrField} = "File";
     $self->{ErrMessage} = "Unable to upload the file";
     return undef;
   }
@@ -709,6 +709,15 @@ sub GetPropertyDescriptors($)
   return $self->SUPER::GetPropertyDescriptors();
 }

+sub GetHtmlLabel($$)
+{
+  my ($self, $Label) = @_;
+
+  # This assumes that the label is also the field name
+  return "<label". ($self->IsErrField($Label) ? " class='errorfield'" : "")
+         .">$Label</label>";
+}
+
 sub GenerateFields($)
 {
   my ($self) = @_;
@@ -723,7 +732,7 @@ sub GenerateFields($)

if ($self->{Page} == 1 or $self->{Page} == 4)
   {
-    print "<div class='ItemProperty'><label>File</label>",
+    print "<div class='ItemProperty'>", $self->GetHtmlLabel("File"),
           "<div class='ItemValue'>";
     if (defined $self->{FileName})
     {
@@ -749,7 +758,7 @@ sub GenerateFields($)
     }
     else
     {
-      print "<div class='ItemProperty'><label>Branch</label>",
+      print "<div class='ItemProperty'>", $self->GetHtmlLabel("Branch"),
             "<div class='ItemValue'>",
             "<select name='Branch' size='1'>";
       my $SortedBranches = $Branches->GetSortedItems();