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