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