Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv22677/bin
Modified Files:
sandweb.cgi
Log Message:
removing last vestages of HTML::Template from SandWeb::Browse
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.218
retrieving revision 1.219
diff -U2 -r1.218 -r1.219
--- sandweb.cgi 25 Feb 2002 22:01:59 -0000 1.218
+++ sandweb.cgi 25 Feb 2002 22:10:23 -0000 1.219
@@ -600,10 +600,23 @@
VCS_CMD_LOOP => \@loop_data,
);
-
- my $current_location = $browse->get_current_location(
+
+ my %current_location = $browse->get_current_location(
'location' => $location,
'progname' => $progname,
);
+ @loop_data = ();
+ $count = 0;
+ while ( $current_location{'LOCATION_LOOP'}->[$count] ) {
+ $log->debug('dump', $current_location{'LOCATION_LOOP'}->[$count]);
+ push (@loop_data, $current_location{'LOCATION_LOOP'}->[$count]);
+ $count++;
+ }
+
+ my $current_location_menu = $ui->get_menu(
+ MENU => 'current_location',
+ LOCATION_LOOP => \@loop_data,
+ );
+
my %browser = $browse->get_browser(
'location' => $location,
@@ -613,6 +626,6 @@
);
- my @loop_data = ();
- my $count = 0;
+ @loop_data = ();
+ $count = 0;
while ( $browser{'ENTRY_LOOP'}->[$count] ) {
$log->debug('dump', $browser{'ENTRY_LOOP'}->[$count]);
@@ -630,5 +643,5 @@
);
- my $content = "$browse_module_header $toolbar_menu $current_location $browser_menu $browse_module_footer";
+ my $content = "$browse_module_header $toolbar_menu $current_location_menu $browser_menu $browse_module_footer";
print CGI::header( -cookie => $ck_auth );
|
