[Sandweb-commit] CVS: sandweb/lib/SandWeb Config.pm,1.15,1.16

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

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