[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.200,1.201

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

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

Modified Files:
	sandweb.cgi 
Log Message:
implemented tool_bar and current_location in view_file


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.200
retrieving revision 1.201
diff -U2 -r1.200 -r1.201
--- sandweb.cgi	22 Feb 2002 08:31:13 -0000	1.200
+++ sandweb.cgi	22 Feb 2002 08:38:58 -0000	1.201
@@ -927,5 +927,36 @@
 		}
 
-		my $content = $ui->get_menu( 
+		$log->debug("creating Repository object");
+		my $repository = SandWeb::Repository->new( 
+			'root' => "$vcsroot",
+			'repo_type' => $repo_type,
+		);
+	
+		my @vcs_commands = $repository->get_vcs_commands();
+
+		$log->debug("creating Browse object");
+		my $browse = SandWeb::Browse->new( 
+			'username' => $username,
+			'module_name' => $module_name,
+			'template_dir' => $template_dir,
+			'vcs_commands' => \@vcs_commands,
+			'users_dir' => $users_dir,
+			'log_obj' => $log,
+		);
+
+		my $tool_bar = $browse->get_tool_bar(
+			'location' => $location,
+			'progname' => $progname,
+			'repo_name' => $repo_name,
+		);
+
+		my $current_location = $browse->get_current_location(
+			'location' => $location,
+			'progname' => $progname,
+			'repo_name' => $repo_name,
+		);
+	
+
+		my $menu = $ui->get_menu( 
 			MENU => 'view_file',
 			PROGNAME => "$progname",
@@ -939,4 +970,6 @@
 			FILE_AGE => $file->get_age(),
 		);
+
+		my $content = "$tool_bar $current_location $menu";
 
 		print CGI::header( -cookie => $ck_auth );