oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

readding mail footer to email messages

Browse source 
removed some old settings that don't apply any longer
This commit is contained in:
JT Smith 2006-04-09 16:12:32 +00:00
parent 2b02f055f9
commit 6c6d36c981
11 changed files with 50 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lib/WebGUI/User.pm
View file

@ -30,7 +30,7 @@ This package provides an object-oriented way of managing WebGUI users as well as
=head1 SYNOPSIS
use WebGUI::User;
$u = WebGUI::User->new($session,3); or $f = WebGUI::User->new($session,"new");
$u = WebGUI::User->new($session,3); or $u = WebGUI::User->new($session,"new"); or $u = WebGUI::User->newByEmail($session, $email);
$authMethod = $u->authMethod("WebGUI");
$dateCreated = $u->dateCreated;
@ -469,6 +469,33 @@ sub new {
bless $userData, $class;
}
#-------------------------------------------------------------------
=head2 newByEmail ( session, email )
Instanciates a user by email address. Returns undef if the email address could not be found.
=head3 session
A reference to the current session.
=head3 email
The email address to search for.
=cut
sub newByEmail {
my $class = shift;
my $session = shift;
my $email = shift;
my ($id) = $session->dbSlave->quickArray("select userId from userProfileData where fieldName='mail' and fieldData=?",[$email]);
my $user = $class->new($session, $id);
return undef unless $user->username;
return $user;
}
#-------------------------------------------------------------------
=head2 profileField ( fieldName [ value ] )