Do not log empty statuses in the InOutBoard.

This commit is contained in:
Colin Kuskie 2009-09-23 16:33:57 -07:00
parent 1ccb468914
commit 564378bba8
3 changed files with 32 additions and 5 deletions

View file

@ -407,10 +407,11 @@ sub www_setStatus {
my $delegate = $session->form->process('delegate');
if ($delegate eq $self->session->scratch->get("userId")) {
my $sessionUserId = $session->scratch->get("userId") || $session->user->userId;
$session->scratch->delete("userId");
$db->write("delete from InOutBoard_status where userId=? and assetId=?", [ $sessionUserId, $self->getId ]);
my $message = $session->form->process('message');
my $status = $session->form->process('status');
return $self->www_view if $status eq '';
$session->scratch->delete("userId");
my $message = $session->form->process('message');
$db->write("delete from InOutBoard_status where userId=? and assetId=?", [ $sessionUserId, $self->getId ]);
$db->write(
"insert into InOutBoard_status (assetId,userId,status,dateStamp,message) values (?,?,?,?,?)",
[$self->getId, $sessionUserId, $status, $session->datetime->time(), $message ],