[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.50,1.51

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv688/lib/SandWeb

Modified Files:
	Browse.pm 
Log Message:
* fixing vcs_commands pulldown


Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -U2 -r1.50 -r1.51
--- Browse.pm	19 Feb 2002 07:00:25 -0000	1.50
+++ Browse.pm	19 Feb 2002 07:12:30 -0000	1.51
@@ -38,6 +38,11 @@
 	my $location = $args{'location'};
 	my $progname = $args{'progname'};
-	my $vcs_commands = $args{'vcs_commands'};
-	my $file_commands = $args{'file_commands'};
+	my @vcs_commands;
+	my $count = 0;
+	while ( $args{'vcs_commands'}->[$count] ) {
+                push (@vcs_commands, $args{'vcs_commands'}->[$count]);
+                $count++;
+        }
+
 	my $repo_type = $args{'repo_type'};
 
@@ -48,6 +53,4 @@
 	my $log = $self->_get_log_obj;
 	my $sandbox = "$users_dir/$username/$module_name";
-	my @vcs_commands = split (/ /, $vcs_commands );
-	my @file_commands = split (/ /, $file_commands );
 
 	if (! $sandbox) {