Bug 144837 bonsai file display always shows trunk revision

r=tara

webtools/bonsai/cvsblame.cgi

@@ -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>

webtools/bonsai/cvslog.cgi

@@ -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>

webtools/bonsai/rview.cgi

@@ -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 ){