[PATCH 1/2] testbot/web: Make it possible to link to the top and bottom of the page.

[Francois Gouget]

The PageTitle anchor identifies the page's title while the PageEnd one
points to the bottom of the page.

Signed-off-by: Francois Gouget 
---
 testbot/lib/ObjectModel/CGI/CollectionPage.pm | 2 +-
 testbot/lib/ObjectModel/CGI/FormPage.pm       | 2 +-
 testbot/lib/WineTestBot/CGI/PageBase.pm       | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/testbot/lib/ObjectModel/CGI/CollectionPage.pm b/testbot/lib/ObjectModel/CGI/CollectionPage.pm
index 6593afcd2..194379f40 100644
--- a/testbot/lib/ObjectModel/CGI/CollectionPage.pm
+++ b/testbot/lib/ObjectModel/CGI/CollectionPage.pm
@@ -63,7 +63,7 @@ sub GenerateTitle($)
   my $Title = $self->GetTitle();
   if ($Title)
   {
-    print "<h1>", $self->escapeHTML($Title), "</h1>\n";
+    print "<h1 id='PageTitle'>", $self->escapeHTML($Title), "</h1>\n";
   }
 }

diff --git a/testbot/lib/ObjectModel/CGI/FormPage.pm b/testbot/lib/ObjectModel/CGI/FormPage.pm
index 3a41fe0e6..01f789489 100644
--- a/testbot/lib/ObjectModel/CGI/FormPage.pm
+++ b/testbot/lib/ObjectModel/CGI/FormPage.pm
@@ -86,7 +86,7 @@ sub GenerateTitle($)
   my $Title = $self->GetTitle();
   if ($Title)
   {
-    print "<h1>", $self->CGI->escapeHTML($Title), "</h1>\n";
+    print "<h1 id='PageTitle'>", $self->CGI->escapeHTML($Title), "</h1>\n";
   }
 }

diff --git a/testbot/lib/WineTestBot/CGI/PageBase.pm b/testbot/lib/WineTestBot/CGI/PageBase.pm
index e5b2f2d3b..0eac6b17b 100644
--- a/testbot/lib/WineTestBot/CGI/PageBase.pm
+++ b/testbot/lib/WineTestBot/CGI/PageBase.pm
@@ -328,7 +328,7 @@ sub GenerateFooter($)

print <<EOF;
     </div><!--ContentContainer-->
-    <b class="rbottom"><b class="r4">&nbsp;</b><b class="r3">&nbsp;</b><b class="r2">&nbsp;</b><b class="r1">&nbsp;</b></b>
+    <b id="PageEnd" class="rbottom"><b class="r4">&nbsp;</b><b class="r3">&nbsp;</b><b class="r2">&nbsp;</b><b class="r1">&nbsp;</b></b>
   </div>
 </div><!--main_content-->