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