[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.51,1.52 Repository.pm,1.20,1.21

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

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(