[project @ 2004-02-03 22:14:32 by cjwatson]

Add named anchors to the start of each message in a bug.

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index c5339f19b39218d1bd68a7c21fd18218aad10be6..c287311e4de2379424e6fe3aa9ae1924cb3846f1 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -320,7 +320,7 @@ while(my $line = <L>) {
                                        $this = "<pre>\n$this</pre>\n";
                                }
                                if ($normstate eq 'html') {
-                                       $this .= "  <em><a href=\"" . bugurl($ref, "msg=$xmessage") . "\">Full text</a> available.</em>";
+                                       $this = "<a name=\"msg$xmessage\">$this  <em><a href=\"" . bugurl($ref, "msg=$xmessage") . "\">Full text</a> available.</em></a>";
                                }
                                $this = "$thisheader$this" if $thisheader && !( $normstate eq 'html' );;
                                $thisheader = '';
@@ -349,8 +349,9 @@ while(my $line = <L>) {
                $pl =~ s/\n+$//;
                m/^Received: \(at (\S+)\) by (\S+)\;/
                        || &quitcgi("bad line \`$pl' in state incoming-recv");
-               $thisheader = "<h2>Message received at ".htmlsanit("$1\@$2")
-                       . ":</h2>\n";
+               $thisheader = "<h2><a name=\"msg$xmessage\">"
+                       . "Message received at ".htmlsanit("$1\@$2")
+                       . ":</a></h2>\n";
                $this = '';
                $normstate= 'go';
                push @mail, $_;