[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.56,1.57

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv11449/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
ok, geT_tool_bar is completely seperate from get_browser. cool!


Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -U2 -r1.56 -r1.57
--- Browse.pm	22 Feb 2002 03:59:29 -0000	1.56
+++ Browse.pm	22 Feb 2002 04:48:23 -0000	1.57
@@ -60,7 +60,4 @@
 	$content->param(
 		PROGNAME => $progname, 
-		MODULE_NAME => $module_name,
-		LOCATION => $location,
-		REPO_NAME => $repo_name,
 	);
 
@@ -160,4 +157,5 @@
 sub get_tool_bar {
 	my $self = shift;
+	my %args = @_;
 
 	my @vcs_commands;
@@ -165,4 +163,8 @@
 	my $vcs_commands = $self->_get_vcs_commands();
 	my $template_dir = $self->_get_template_dir();
+	my $module_name = $self->_get_module_name();
+	my $location = $args{'location'};
+	my $progname = $args{'progname'};
+	my $repo_name = $args{'repo_name'};
 
 	my $content = HTML::Template->new( filename => "$template_dir/tool_bar.html" );
@@ -180,5 +182,11 @@
 	}
 
-	$content->param( VCS_CMD_LOOP => \@loop_data );
+	$content->param( 
+		VCS_CMD_LOOP => \@loop_data,
+		PROGNAME => $progname,
+		LOCATION => $location,
+		MODULE_NAME => $module_name,
+		REPO_NAME => $repo_name,
+	);
 
 	return $content->output;