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

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

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

Modified Files:
	Config.pm 
Log Message:
* added methods for getting personal data, and update CGI accordingly.
* fixed mistake in Config.


Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -U2 -r1.16 -r1.17
--- Config.pm	18 Feb 2002 10:37:13 -0000	1.16
+++ Config.pm	18 Feb 2002 10:41:06 -0000	1.17
@@ -43,4 +43,30 @@
 }
 
+
+#############################################################################
+#############################################################################
+# Personal Stuff
+#
+#
+
+# returns users full name
+sub get_full_name {
+	my $self = shift;
+	return $self->{'personal'}->{'full_name'} || '';
+}
+
+# returns users work dir
+sub get_work_dir {
+	my $self = shift;
+	return $self->{'personal'}->{'work_dir'} || '';
+}
+
+
+#############################################################################
+#############################################################################
+# Repository Stuff
+#
+#
+
 # write config file for user preferences
 sub write_preferences_config {
@@ -156,5 +182,5 @@
 	if (!$self->repository_exists()) {
 		if ($self->module_exists()) {
-			return $user->{'repo'}->{$repo}->{'module'}->{$module}->{'module_desc'};
+			return $self->{'repo'}->{$repo}->{'module'}->{$module}->{'module_desc'};
 		} else {
 			$self->{'log_obj'}->("module '$module' does not exist for repository '$repo'.\n");