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,
);
|
