Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-02-09 16:57:36 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Bug 144837 bonsai file display always shows trunk revision

Browse Source 
r=tara
This commit is contained in:
timeless%mac.com 2002-05-30 04:45:11 +00:00
parent d28ebee67f
commit 692c34b6a4
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
webtools/bonsai/cvsblame.cgi
View File

@ -105,6 +105,8 @@ my ($file_head, $file_tail) = $filename =~ m@(.*/)?(.+)@;
#
$::opt_rev = '';
$::opt_rev = $::FORM{rev} if defined $::FORM{rev} and $::FORM{rev} ne 'HEAD';
my $revstr = '';
$revstr = "&rev=$::opt_rev" unless $::opt_rev eq '';
my $browse_revtag = 'HEAD';
$browse_revtag = $::opt_rev if ($::opt_rev =~ /[A-Za-z]/);
my $revision = '';
@ -261,7 +263,7 @@ print qq(
</TD>
</TR><TR>
<TD NOWRAP>
<A HREF="cvslog.cgi?file=$filename">Full Change Log</A>
<A HREF="cvslog.cgi?file=$filename$revstr">Full Change Log</A>
</TD>
$graph_cell
</TR>

4
webtools/bonsai/cvslog.cgi
View File

@ -75,6 +75,8 @@ my ($file_head, $file_tail) = $filename =~ m@(.*/)?(.+)@;
#
$::opt_rev = "";
$::opt_rev = $::FORM{'rev'} if defined $::FORM{'rev'} && $::FORM{'rev'} !~ m/^(HEAD|MAIN)$/;
my $revstr = '';
$revstr = "&rev=$::opt_rev" unless $::opt_rev eq '';
my $browse_revtag = 'HEAD';
$browse_revtag = $::opt_rev if ($::opt_rev =~ /[A-Za-z]/);
my $revision = '';
@ -219,7 +221,7 @@ print qq(
</TD>
</TR><TR>
<TD>
<A HREF="cvsblame.cgi?file=$filename">blame</A>&nbsp;
<A HREF="cvsblame.cgi?file=$filename$revstr">blame</A>&nbsp;
</TD><TD NOWRAP>
Annotate the author of each line.
</TD>

2
webtools/bonsai/rview.cgi
View File

@ -201,7 +201,7 @@ $split = int(@files/4)+1;
for $_ (@files){
$_ =~ s/\,v//;
print qq{<a href="$registryurl/file.cgi?cvsroot=$CVS_ROOT&file=$_&dir=$dir"}
print qq{<a href="$registryurl/file.cgi?cvsroot=$CVS_ROOT&file=$_&dir=$dir$revstr"}
. " onclick=\"return js_file_menu('$dir','$_','$rev','$CVS_ROOT',event)\">\n";
print "<dt>$_</a>\n";
if( $j % $split == 0 ){