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

Changes to WebGUI for Private Messaging

Browse source
This commit is contained in:
Frank Dillon 2007-06-14 20:10:33 +00:00
parent cc7687c877
commit 82e020dc4f
9 changed files with 562 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

45
lib/WebGUI/Inbox/Message.pm
View file

@ -80,12 +80,13 @@ sub create {
my $properties = shift;
my $self = {};
$self->{_properties}{messageId} = "new";
$self->{_properties}{status} = $properties->{status} || "pending";
$self->{_properties}{subject} = $properties->{subject} || WebGUI::International->new($session)->get(523);
$self->{_properties}{message} = $properties->{message};
$self->{_properties}{status} = $properties->{status} || "pending";
$self->{_properties}{subject} = $properties->{subject} || WebGUI::International->new($session)->get(523);
$self->{_properties}{message} = $properties->{message};
$self->{_properties}{dateStamp} = time();
$self->{_properties}{userId} = $properties->{userId};
$self->{_properties}{groupId} = $properties->{groupId};
$self->{_properties}{userId} = $properties->{userId};
$self->{_properties}{groupId} = $properties->{groupId};
$self->{_properties}{sentBy} = $properties->{sentBy} || 3;
if ($self->{_properties}{status} eq "completed") {
$self->{_properties}{completedBy} = $session->user->userId;
$self->{_properties}{completedOn} = time();
@ -237,5 +238,39 @@ sub setCompleted {
$self->session->db->setRow("inbox","messageId",$self->{_properties});
}
#-------------------------------------------------------------------
=head2 setStatus ( status,[ userId ] )
Marks a message completed.
=head4 status
Status to mark the message
=head4 userId
The id of the user that completed this task. Defaults to the current user.
=cut
sub setStatus {
my $self = shift;
my $status = shift;
my $userId = shift || $self->session->user->userId;
unless ($status) {
$self->session->errorHandler->warn("No status passed in for message. Exit without update");
return;
}
if($status eq "completed") {
$self->setCompleted($userId);
return;
}
$self->{_properties}{status} = $status;
$self->session->db->setRow("inbox","messageId",$self->{_properties});
return;
}
1;