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

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

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

Modified Files:
	Browse.pm 
Log Message:
wow, implementing toolbar worked first time i tried. kick ass.

note that this is still using the HTML::Template system, but once
I get this all in place I'm going to rip it out and make the CGI
deal with browse's output.



Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.55
retrieving revision 1.56
diff -U2 -r1.55 -r1.56
--- Browse.pm	22 Feb 2002 03:49:27 -0000	1.55
+++ Browse.pm	22 Feb 2002 03:59:29 -0000	1.56
@@ -15,14 +15,16 @@
 	my %args = @_;
 	my $username = $args{'username'};
-	my $template_dir = $args{'template_dir'};
 	my $module_name = $args{'module_name'};
 	my $users_dir = $args{'users_dir'};
+	my $template_dir = $args{'template_dir'};
+	my $vcs_commands = $args{'vcs_commands'};
 	my $log_obj = $args{'log_obj'};
 
 	my $self = bless {
 		'username' => $username,
-		'template_dir' => $template_dir,
 		'module_name' => $module_name,
 		'users_dir' => $users_dir,
+		'template_dir' => $template_dir,
+		'vcs_commands' => $vcs_commands,
 		'log_obj' => $log_obj,
 	}, $class;
@@ -60,5 +62,4 @@
 		MODULE_NAME => $module_name,
 		LOCATION => $location,
-#		LOCATION_LOOP => \@loop_data,
 		REPO_NAME => $repo_name,
 	);
@@ -157,18 +158,31 @@
 }
 
-#sub get_tool_bar {
-#	my @vcs_commands;
-#	my $count = 0;
-#	while ( $args{'vcs_commands'}->[$count] ) {
-#		push (@vcs_commands, $args{'vcs_commands'}->[$count]);
-#		$count++;
-#	$content->param( VCS_CMD_LOOP => \@loop_data );
-#	}
-#	foreach my $vcs_command (@vcs_commands) {
-#		my %row_data;
-#		$row_data{VCS_CMD} = "$vcs_command";
-#		push (@loop_data, \%row_data);
-#	}
-#}
+sub get_tool_bar {
+	my $self = shift;
+
+	my @vcs_commands;
+	my @loop_data;
+	my $vcs_commands = $self->_get_vcs_commands();
+	my $template_dir = $self->_get_template_dir();
+
+	my $content = HTML::Template->new( filename => "$template_dir/tool_bar.html" );
+
+	my $count = 0;
+	while ( $vcs_commands->[$count] ) {
+		push (@vcs_commands, $vcs_commands->[$count]);
+		$count++;
+	}
+
+	foreach my $vcs_command (@vcs_commands) {
+		my %row_data;
+		$row_data{VCS_CMD} = "$vcs_command";
+		push (@loop_data, \%row_data);
+	}
+
+	$content->param( VCS_CMD_LOOP => \@loop_data );
+
+	return $content->output;
+}
+
 #
 #sub get_current_location {
@@ -241,9 +255,13 @@
 }
 
+sub _get_vcs_commands {
+	my $self = shift;
+	return $self->{'vcs_commands'};
+}
+
 sub _get_log_obj {
 	my $self = shift;
 	return $self->{'log_obj'};
 }
-
 
 1;