[tools] testbot/web: Use <thead> for the CollectionBlock table headers.

[Francois Gouget]

It usually does not make any difference but is good practice.

Signed-off-by: Francois Gouget 
---
 testbot/lib/ObjectModel/CGI/CollectionBlock.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/testbot/lib/ObjectModel/CGI/CollectionBlock.pm b/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
index b523d142c..058bb4784 100644
--- a/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
+++ b/testbot/lib/ObjectModel/CGI/CollectionBlock.pm
@@ -107,10 +107,12 @@ EOF

print "<table border='0' cellpadding='5' cellspacing='0' summary='" .
         "Overview of " . $Collection->GetCollectionName() . "'>\n";
-  print "<tbody>\n";
+  print "<thead>\n";
   my $Actions = $self->CallGetItemActions();
   $self->CallGenerateHeaderRow($PropertyDescriptors, $Actions);
+  print "</thead>\n";

+  print "<tbody>\n";
   my $DetailsPage = $self->CallGetDetailsPage();
   my $Row = 0;
   my $Keys = $self->CallSortKeys($self->{Collection}->GetKeys());