sandweb-commit

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv3612/lib/SandWeb

Modified Files:
	Config.pm 
Log Message:
* added description support


Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -U2 -r1.20 -r1.21
--- Config.pm	18 Feb 2002 12:15:33 -0000	1.20
+++ Config.pm	18 Feb 2002 12:29:58 -0000	1.21
@@ -357,17 +357,18 @@
 	my $repo = $args{'repo'} || '';
 	my $module = $args{'module'} || '';
-	my $module_desc = $args{'module_desc'} || '';
+	my $module_description = $args{'module_description'} || '';
+	$log->debug("module_description = '$module_description'\n");
 	if ($self->repository_exists(repo => $repo)) {
-		if (!$self->module_exists(
-							repo => $repo, 
-							module => $module)) {
-			$self->{'repo'}->{$repo}->{'module'}->{$module}->{'desc'} = 
-																$module_desc;
+		#if (!$self->module_exists(
+		#					repo => $repo, 
+		#					module => $module)) {
+			$self->{'repo'}->{$repo}->{'module'}->{$module}->{'description'} = 
+														$module_description;
 			$self->{'repo'}->{$repo}->{'module'}->{$module}->{'name'} = 
-																$module;
-		} else {
-			$log->debug("module '$module' already exists for repo '$repo'.\n");
-			return 0;
-		}
+														$module;
+		#} else {
+		#	$log->debug("module '$module' already exists for repo '$repo'.\n");
+		#	return 0;
+		#}
 	} else {
 		$log->debug("repo '$repo' does not exist.\n");
@@ -377,5 +378,5 @@
 }
 
-sub get_module_desc {
+sub get_module_description {
 	my $self = shift;
 	my %args = @_;
@@ -388,5 +389,5 @@
 							repo => $repo,
 							module => $module )) {
-			return $self->{'repo'}->{$repo}->{'module'}->{$module}->{'module_desc'} || '';
+			return $self->{'repo'}->{$repo}->{'module'}->{$module}->{'description'} || '';
 		} else {
 			$log->debug("module '$module' does not exist for repo '$repo'.\n");