[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.165,1.166

[Nick J. <nje...@us...>]

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv14945

Modified Files:
	sandweb.cgi 
Log Message:
* finished checkout_menu() (no checkout_commit() yet)


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.165
retrieving revision 1.166
diff -U2 -r1.165 -r1.166
--- sandweb.cgi	13 Feb 2002 04:26:09 -0000	1.165
+++ sandweb.cgi	13 Feb 2002 04:33:53 -0000	1.166
@@ -225,10 +225,4 @@
 					);
 				}
-				elsif ( $action eq 'module_checkout_menu' ) {
-					vcsaction(
-						ck_auth => $ck_auth,
-						vcs_command => 'checkout',
-					);
-				}
 				elsif ( $action eq 'repository_menu' ) {
                     if ($submit) {
@@ -534,5 +528,4 @@
 
 	# use the browse object to show user's sandbox
-
 	my $content = $browse->browse("$location", "$progname", "@vcs_commands", "@file_commands", $repo_type);
 
@@ -1036,8 +1029,21 @@
 	
 	my @repos = sort keys %{$user->{'repo'}};
+	my @repo_list = ();
+
+	my $i = 0;
+	foreach my $repo (@repos) {
+		my %entry;
+		$entry{'REPO_NAME'} = $repo;
+		if ($i == 0) {
+			$entry{'SELECTED'} = 1;
+		}
+		push @repo_list, \%entry;
+		$i++;
+	}
 
 	my $content = $ui->get_menu( 
 		MENU => 'checkout',
 		PROGNAME => $progname,
+		REPO_LIST => \@repo_list,
 	);