[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.178,1.179

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

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

Modified Files:
	sandweb.cgi 
Log Message:
* updated more of the CGI to use the new methods for accessing data


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.178
retrieving revision 1.179
diff -U2 -r1.178 -r1.179
--- sandweb.cgi	18 Feb 2002 10:55:31 -0000	1.178
+++ sandweb.cgi	18 Feb 2002 10:58:18 -0000	1.179
@@ -1235,15 +1235,12 @@
 	my $repo_name = $args{'repo_name'};
 
-	my $repo_server = $user->{'repo'}->{$repo_name}->{'server'};
-	my $repo_username = $user->{'repo'}->{$repo_name}->{'username'};
-	my $repo_type = $user->{'repo'}->{$repo_name}->{'type'};
-	my $repo_connection = $user->{'repo'}->{$repo_name}->{'connection'};
-	my $repo_root = $user->{'repo'}->{$repo_name}->{'root'};
+	my $repo_server = $user->get_repo_server(repo => $repo_name);
+	my $repo_username = $user->get_repo_username(repo => $repo_name);
+	my $repo_type = $user->get_repo_type(repo => $repo_name);
+	my $repo_connection = $user->get_repo_connection(repo => $repo_name);
+	my $repo_root = $user->get_repo_root(repo => $repo_name);
 	my $module_desc = 'blah';
 	
-	my @module_list = ();
-	if ($user->{'repo'}->{$repo_name}->{'module_list'}) {
-		@module_list =  $user->get_module_list(repo => $repo_name ); 
-	}
+	@module_list =  $user->get_module_list(repo => $repo_name ); 
 
 	my $exist = 0;