Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv8858/lib/SandWeb
Modified Files:
Config.pm
Log Message:
* added get_module_desc method
Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -U2 -r1.15 -r1.16
--- Config.pm 18 Feb 2002 10:28:14 -0000 1.15
+++ Config.pm 18 Feb 2002 10:37:13 -0000 1.16
@@ -142,8 +142,27 @@
}
} else {
- $self->{'log_obj'}->("repository '$repo' already exists.\n");
- return 0;
+ $self->{'log_obj'}->("repository '$repo' already exists.\n");
+ return 0;
}
return 1;
+}
+
+sub get_module_desc {
+ my $self = shift;
+ my %args = @_;
+ my $repo = $args{'repo'};
+ my $module = $args{'module'};
+
+ if (!$self->repository_exists()) {
+ if ($self->module_exists()) {
+ return $user->{'repo'}->{$repo}->{'module'}->{$module}->{'module_desc'};
+ } else {
+ $self->{'log_obj'}->("module '$module' does not exist for repository '$repo'.\n");
+ return '';
+ }
+ } else {
+ $self->{'log_obj'}->("repository '$repo' does not exist.\n");
+ return '';
+ }
}
|
