[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.220,1.221

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

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

Modified Files:
	sandweb.cgi 
Log Message:
view_file was using current_location the old way; fixed



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.220
retrieving revision 1.221
diff -U2 -r1.220 -r1.221
--- sandweb.cgi	25 Feb 2002 22:59:05 -0000	1.220
+++ sandweb.cgi	25 Feb 2002 23:12:51 -0000	1.221
@@ -983,9 +983,22 @@
 	);
 
-	my $current_location = $browse->get_current_location(
+	my %current_location = $browse->get_current_location(
 		'location' => $location,
 		'progname' => $progname,
 	);
 
+	my @loop_data = ();
+	my $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 $menu = $ui->get_menu( 
 		MENU => 'view_file',
@@ -1002,5 +1015,5 @@
 	);
 
-	my $content = "$current_location $menu";
+	my $content = "$current_location_menu $menu";
 
 	print CGI::header( -cookie => $ck_auth );