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