diff options
author | gerv%gerv.net <> | 2001-10-20 08:06:57 +0000 |
---|---|---|
committer | gerv%gerv.net <> | 2001-10-20 08:06:57 +0000 |
commit | 0a39f7d18a967e33f56bf084138b9ad12fdaf79f (patch) | |
tree | b37e619f816816b886b29150bc3f063c193a6b1a /globals.pl | |
parent | 1a2eccfb5aedd00f469c3dc2395663eb455ea32e (diff) | |
download | bugs-0a39f7d18a967e33f56bf084138b9ad12fdaf79f.tar bugs-0a39f7d18a967e33f56bf084138b9ad12fdaf79f.tar.gz bugs-0a39f7d18a967e33f56bf084138b9ad12fdaf79f.tar.bz2 bugs-0a39f7d18a967e33f56bf084138b9ad12fdaf79f.tar.xz bugs-0a39f7d18a967e33f56bf084138b9ad12fdaf79f.zip |
Bug 71840 - make comments referenceable. Patch by gerv/jake. r=justdave, jake/gerv.
Diffstat (limited to 'globals.pl')
-rw-r--r-- | globals.pl | 36 |
1 files changed, 26 insertions, 10 deletions
diff --git a/globals.pl b/globals.pl index 834c08d1c..4b9c7c9e7 100644 --- a/globals.pl +++ b/globals.pl @@ -891,6 +891,22 @@ sub quoteUrls { $things[$count++] = $item; } + # Either a comment string or no comma and a compulsory #. + while ($text =~ s/\bbug(\s|%\#)*(\d+),?\s*comment\s*(\s|%\#)(\d+)/"##$count##"/ei) { + my $item = $&; + my $bugnum = $2; + my $comnum = $4; + $item = GetBugLink($bugnum, $item); + $item =~ s/(id=\d+)/$1#c$comnum/; + $things[$count++] = $item; + } + while ($text =~ s/\bcomment(\s|%\#)*(\d+)/"##$count##"/ei) { + my $item = $&; + my $num = $2; + $item = value_quote($item); + $item = qq{<A HREF="#c$num">$item</A>}; + $things[$count++] = $item; + } while ($text =~ s/\bbug(\s|%\#)*(\d+)/"##$count##"/ei) { my $item = $&; my $num = $2; @@ -1047,16 +1063,16 @@ sub GetLongDescriptionAsHTML { my ($who, $email, $when, $text) = (FetchSQLData()); $email .= Param('emailsuffix'); if ($count) { - $result .= "<BR><BR><I>------- Additional Comments From "; - if ($who) { - $result .= qq{<A HREF="mailto:$email">$who</A> } . - time2str("%Y-%m-%d %H:%M", str2time($when)) . - " -------</I><BR>\n"; - } else { - $result .= qq{<A HREF="mailto:$email">$email</A> } . - time2str("%Y-%m-%d %H:%M", str2time($when)) . - " -------</I><BR>\n"; - } + $result .= "<BR><BR><I>------- Additional Comment <a name='c$count' href='#c$count'>#$count</a> From "; + if ($who) { + $result .= qq{<A HREF="mailto:$email">$who</A> } . + time2str("%Y-%m-%d %H:%M", str2time($when)); + } else { + $result .= qq{<A HREF="mailto:$email">$email</A> } . + time2str("%Y-%m-%d %H:%M", str2time($when)); + } + + $result .= " -------</I><BR>\n"; } $result .= "<PRE>" . quoteUrls(\%knownattachments, $text) . "</PRE>\n"; $count++; |