Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv2109/lib/SandWeb
Modified Files:
Browse.pm Repository.pm
Log Message:
* VCS commands now ( appear to ) work with the multi-repo setup
* there are known bugs with "current location" and edit_file
* everything but the basics have not been tested, just the groundwork
is in place
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -U2 -r1.51 -r1.52
--- Browse.pm 19 Feb 2002 07:12:30 -0000 1.51
+++ Browse.pm 19 Feb 2002 09:09:13 -0000 1.52
@@ -46,4 +46,5 @@
my $repo_type = $args{'repo_type'};
+ my $repo_name = $args{'repo_name'};
my $username = $self->_get_username();
@@ -74,5 +75,5 @@
push (@location_link, split( /\//, $location ));
my @loop_data = ();
- my $count = 0;
+ $count = 0;
my @location_full = ();
@@ -82,4 +83,5 @@
$row_data{LOCATION_FULL} = "/";
$row_data{MODULE_NAME} = "$module_name";
+ $row_data{REPO_NAME} = "$repo_name";
$row_data{PROGNAME} = "$progname";
push (@loop_data, \%row_data);
@@ -100,4 +102,5 @@
$row_data{LOCATION_FULL} = "$data";
$row_data{MODULE_NAME} = "$module_name";
+ $row_data{REPO_NAME} = "$repo_name";
$row_data{PROGNAME} = "$progname";
push (@loop_data, \%row_data);
@@ -110,4 +113,5 @@
LOCATION => $location,
LOCATION_LOOP => \@loop_data,
+ REPO_NAME => $repo_name,
);
@@ -184,4 +188,5 @@
$row_data{LOCATION} = $location;
$row_data{MODULE_NAME} = "$module_name";
+ $row_data{REPO_NAME} = "$repo_name";
$row_data{PROGNAME} = $progname;
push(@loop_data, \%row_data);
Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -U2 -r1.20 -r1.21
--- Repository.pm 18 Feb 2002 12:15:33 -0000 1.20
+++ Repository.pm 19 Feb 2002 09:09:13 -0000 1.21
@@ -433,9 +433,11 @@
my $root = $self->get_root();
my $sandbox = $self->get_sandbox();
- my %return = {};
+ my %return;
+
my $vcs = SandWeb::Repository::CVS->new(
root => $root,
sandbox => $sandbox,
);
+
if ($repo_type eq 'CVS') {
%return = $vcs->status(
|
