we officially support attachments on our cs mail posts

This commit is contained in:
JT Smith 2006-04-10 13:36:12 +00:00
parent a15795519d
commit ee62336a77
2 changed files with 2 additions and 1 deletions

View file

@ -491,6 +491,7 @@ sub newByEmail {
my $email = shift;
my ($id) = $session->dbSlave->quickArray("select userId from userProfileData where fieldName='email' and fieldData=?",[$email]);
my $user = $class->new($session, $id);
return undef if ($user->userId eq "1"); # visitor is never valid for this method
return undef unless $user->username;
return $user;
}

View file

@ -98,7 +98,7 @@ sub addPost {
my $type = $1;
$filename = $self->session->id->generate.".".$type;
}
$storage->addFileFromScalar($file->{content}, $filename);
$storage->addFileFromScalar($filename, $file->{content});
}
}
$post->postProcess;