diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm index cfb9b341b..d2daa7b1b 100644 --- a/lib/WebGUI/User.pm +++ b/lib/WebGUI/User.pm @@ -489,7 +489,7 @@ 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 ($id) = $session->dbSlave->quickArray("select userId from userProfileData where fieldName='email' and fieldData=?",[$email]); my $user = $class->new($session, $id); return undef unless $user->username; return $user; diff --git a/lib/WebGUI/Workflow/Activity/GetCsMail.pm b/lib/WebGUI/Workflow/Activity/GetCsMail.pm index 35d6c938b..c1c734de4 100644 --- a/lib/WebGUI/Workflow/Activity/GetCsMail.pm +++ b/lib/WebGUI/Workflow/Activity/GetCsMail.pm @@ -71,7 +71,7 @@ sub addPost { my $class = (ref $parent eq "WebGUI::Asset::Wobject::Collaboration") ? "WebGUI::Asset::Post::Thread" : "WebGUI::Asset::Post"; foreach my $part (@{$message->{parts}}) { if (($part->{type} eq "text/plain" || $part->{type} eq "text/html") && $part->{filename} eq "") { - my $text = $message->{content}; + my $text = $part->{content}; if ($part->{type} eq "text/plain") { $text =~ s/\n/\
/g; } @@ -86,7 +86,7 @@ sub addPost { menuTitle => $message->{subject}, url=>$message->{subject}, content=>$content, - ownerUserId=>$user->getId, + ownerUserId=>$user->userId, username=>$user->profileField("alias") || $user->username, }); if (scalar(@attachments)) {