[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.335,1.336

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

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv26134

Modified Files:
	sandweb.cgi 
Log Message:
added some debugging messages, and some parsing fixes.


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.335
retrieving revision 1.336
diff -U2 -r1.335 -r1.336
--- sandweb.cgi	4 Jan 2003 23:10:57 -0000	1.335
+++ sandweb.cgi	5 Jan 2003 22:19:58 -0000	1.336
@@ -154,5 +154,5 @@
 		my $main_window_url = $cgi->param('main_window_url') || '';
 
-		$log->debug("action: $action submit: $submit");
+		$log->debug("action: $action - submit: $submit");
 		$log->debug("module_description: $module_description\n");
 
@@ -974,9 +974,9 @@
 		# verify repository name
 		foreach my $repo (@repos) {
-		if ($repository_selected eq $repo) {
-			$repo_name = $repo;
-			$valid = 1;
+			if ($repository_selected eq $repo) {
+				$repo_name = $repo;
+				$valid = 1;
+			}
 		}
-	}
 		if (!$valid) {
 			# bad repository name
@@ -2802,4 +2802,7 @@
 				'location' => $config->{'paths'}->{'users_dir'} . "/" . $auth->get_username(),
 			);
+
+			$log->debug("creating " . $config->{'paths'}->{'users_dir'} . "/" . $auth->get_username() . "/" . $repo_name);
+
 			if (! -d $config->{'paths'}->{'users_dir'} . "/" . $auth->get_username() . "/" . $repo_name ) {
 				if (!$file->create_folder()) {