sandweb-commit

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

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

Modified Files:
	Auth.pm 
Log Message:
* changed $auth->get_userinfo('username') to $auth->get_username();


Index: Auth.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Auth.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -U2 -r1.15 -r1.16
--- Auth.pm	31 Jan 2002 23:32:33 -0000	1.15
+++ Auth.pm	18 Feb 2002 10:44:58 -0000	1.16
@@ -76,15 +76,8 @@
 }
 
-sub get_userinfo {
+sub get_username {
     my $self = shift;
     my $value = shift;
-    if ($self->{user_info}->{$value}) {
-        return $self->{user_info}->{$value};
-    }
-    else {
-        # Debug Purposes XXX
-        return %{$self->{user_info}};
-        #return 0;
-    }
+	return $self->{user_info}->{'username'};
 }