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