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

Add tests for InOutBoard. documents bug#11024.

Browse source 
Also, add a purge method to clean-up the collateral tables for this asset.
This commit is contained in:
Colin Kuskie 2009-09-23 09:55:25 -07:00
parent 04e44a156d
commit 65f1377081
3 changed files with 163 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Asset/Wobject/InOutBoard.pm
View file

@ -137,6 +137,23 @@ sub prepareView {
}
#-------------------------------------------------------------------
=head2 purge ( )
Extend the base method to cleanup the status and statusLog tables.
=cut
sub purge {
my $self = shift;
my $session = $self->session;
$session->db->write('delete from InOutBoard_status where assetId=?', [$self->getId]);
$session->db->write('delete from InOutBoard_statusLog where assetId=?', [$self->getId]);
$self->SUPER::purge(@_);
}
#-------------------------------------------------------------------
=head2 view
@ -393,17 +410,18 @@ sub www_setStatus {
$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');
$db->write(
"insert into InOutBoard_status (assetId,userId,status,dateStamp,message) values (?,?,?,?,?)",
[$self->getId, $sessionUserId, $session->form->process("status"), $session->datetime->time(), $message ],
[$self->getId, $sessionUserId, $status, $session->datetime->time(), $message ],
);
$db->write(
"insert into InOutBoard_statusLog (assetId,userId,createdBy,status,dateStamp,message) values (?,?,?,?,?,?)",
[$self->getId, $sessionUserId, $session->user->userId, $session->form->process("status"), $session->datetime->time(), $message ],
[$self->getId, $sessionUserId, $session->user->userId, $status, $session->datetime->time(), $message ],
);
}
else {
$session->scratch->set("userId",$session->form->process("delegate"));
$session->scratch->set("userId",$delegate);
}
return $self->www_view;
}