and we officially have email to discussion working

This commit is contained in:
JT Smith 2006-04-10 13:21:46 +00:00
parent f4376ab5be
commit a15795519d
2 changed files with 3 additions and 3 deletions

View file

@ -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/\<br \/\>/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)) {