[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.180,1.181

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

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

Modified Files:
	sandweb.cgi 
Log Message:
* created get/set for all of the repository data
* created create/update repository
* fixed Auth reference to old userinfo (instead of username)


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.180
retrieving revision 1.181
diff -U2 -r1.180 -r1.181
--- sandweb.cgi	18 Feb 2002 10:59:06 -0000	1.180
+++ sandweb.cgi	18 Feb 2002 11:16:16 -0000	1.181
@@ -568,5 +568,5 @@
     $repository_selected = $repository_selected || $repos[0] || $new_string; # default for pulldown
 
-    if (($repository_selected) && ($repository_selected != $new_string)) {
+    if (($repository_selected) && ($repository_selected ne $new_string)) {
         my $valid = 0;
         # verify repository name
@@ -1385,11 +1385,21 @@
 
     # commit data to file
-    $user->{'repo'}->{$repo_name}->{'name'} = $repo_name;
-    $user->{'repo'}->{$repo_name}->{'server'} = $repo_server;
-    $user->{'repo'}->{$repo_name}->{'username'} = $repo_username;
-    $user->{'repo'}->{$repo_name}->{'connection'} = $repo_connection;
-    $user->{'repo'}->{$repo_name}->{'type'} = $repo_type;
-    $user->{'repo'}->{$repo_name}->{'root'} = $repo_root;
-	$user->{'repo'}->{$repo_name}->{'module_list'} = [];
+	if ($user->repository_exists(repo => $repo_name)) {
+		$user->update_repo(
+			name => $repo_name, 
+			server => $repo_server,
+			connection => $repo_connection,
+			type => $repo_type,
+			root => $repo_root,
+		);
+	} else {	
+		$user->create_repo(
+			name => $repo_name, 
+			server => $repo_server,
+			connection => $repo_connection,
+			type => $repo_type,
+			root => $repo_root,
+		);
+	}
 
 #    my $username = $auth->get_username();