[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.217,1.218

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

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv19797/bin

Modified Files:
	sandweb.cgi 
Log Message:
tool_bar no longer uses HTML::Template


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.217
retrieving revision 1.218
diff -U2 -r1.217 -r1.218
--- sandweb.cgi	25 Feb 2002 21:49:09 -0000	1.217
+++ sandweb.cgi	25 Feb 2002 22:01:59 -0000	1.218
@@ -583,8 +583,21 @@
 	);
 
-	my $toolbar = $browse->get_tool_bar(
+	my %toolbar = $browse->get_tool_bar(
 		'location' => $location,
 		'progname' => $progname,
 	);
+
+	my @loop_data = ();
+	my $count = 0;
+	while ( $toolbar{'VCS_CMD_LOOP'}->[$count] ) {
+		$log->debug('dump', $toolbar{'VCS_CMD_LOOP'}->[$count]);
+		push (@loop_data, $toolbar{'VCS_CMD_LOOP'}->[$count]);
+		$count++;
+	}
+
+	my $toolbar_menu = $ui->get_menu( 
+		MENU => 'tool_bar',
+		VCS_CMD_LOOP => \@loop_data,
+	);
 	
 	my $current_location = $browse->get_current_location(
@@ -601,5 +614,4 @@
 
 	my @loop_data = ();
-	
 	my $count = 0;
 	while ( $browser{'ENTRY_LOOP'}->[$count] ) {
@@ -618,5 +630,5 @@
 	);
 
-	my $content = "$browse_module_header $toolbar $current_location $browser_menu $browse_module_footer";
+	my $content = "$browse_module_header $toolbar_menu $current_location $browser_menu $browse_module_footer";
 
 	print CGI::header( -cookie => $ck_auth );