Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv11648/bin
Modified Files:
sandweb.cgi
Log Message:
* repository menu now seems to be fully working. next is to add support to
check out a module menu.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.158
retrieving revision 1.159
diff -U2 -r1.158 -r1.159
--- sandweb.cgi 11 Feb 2002 02:02:53 -0000 1.158
+++ sandweb.cgi 11 Feb 2002 02:47:15 -0000 1.159
@@ -1142,4 +1142,11 @@
# repository selected was 'add new repository'
# new repository display
+ $repo_name = '';
+ $repo_server = '';
+ $repo_username = '';
+ $repo_connection = '';
+ $repo_type = '';
+ $repo_root = '';
+
} elsif ($repository_selected) {
# display existing repository
@@ -1174,9 +1181,15 @@
my @loop_repo_type = ();
+ $log->debug('@repos: '. join('-', @repos). "\nrepository_selected: '$repository_selected'\n");
foreach my $repo (@repos) {
+ chomp $repo;
my %entries;
- if (($repository_selected eq $repo) && ($repository_selected != $new_string)) {
+ $log->debug("-- REPO: $repository_selected = $repo && $repository_selected != $new_string\n");
+ if ($repository_selected eq $repo) {
+ # Doesn't seem to work!?? ($repository_selected != $new_string)) {
+ $log->debug("-- REPO: TRUE\n");
$entries{REPOSITORY_ENTRY} = "<option selected>$repo</option>";
} else {
+ $log->debug("-- REPO: FALSE\n");
$entries{REPOSITORY_ENTRY} = "<option>$repo</option>";
}
|
