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