[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.174,1.175

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

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

Modified Files:
	sandweb.cgi 
Log Message:
* added get_module_desc method


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.174
retrieving revision 1.175
diff -U2 -r1.174 -r1.175
--- sandweb.cgi	18 Feb 2002 10:28:13 -0000	1.174
+++ sandweb.cgi	18 Feb 2002 10:37:12 -0000	1.175
@@ -360,19 +360,18 @@
 
 	foreach my $repo_name (@repo_list) {
-	$log->debug("module_list ref: " . ref $user->{'repo'}->{$repo_name}->{'module_list'}); 
-		my @module_list = 
-			$user->get_module_list(repo => $repo_name ); 
-
-		if ($#module_list < 0) {
-			$no_modules = 1;
-		} else {
+		if (my @module_list = $user->get_module_list(repo => $repo_name )) { 
 			# build repository list for template
 			foreach my $module_name (@module_list) {
 				my %entry;
 				$entry{'MODULE_NAME'} = $module_name;
-				#$entry{'MODULE_DESC'} = $user->{'repo'}->{$repo)->{'module'}->{$module}->{'description'} || '';
+				$entry{'MODULE_DESC'} = $user->get_module_desc(
+												repo => $repo_name, 
+												module => $module_name
+				);
 				$entry{'REPOSITORY'} = $repo_name;
 				push @module_loop, \%entry;
 			}
+		} else {
+			$no_modules = 1;
 		}
 	}