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");
|
