function doDeleteWorkspaceAction()
{
@($workspace = DevblocksPlatform::importGPC($_POST['workspace'], 'string', ''));
$db = DevblocksPlatform::getDatabaseService();
$active_worker = PortSensorApplication::getActiveWorker();
$lists = DAO_Worklist::getWhere(sprintf("%s = %s AND %s = %d", DAO_Worklist::WORKSPACE, $db->qstr($workspace), DAO_Worklist::WORKER_ID, $active_worker->id));
DAO_Worklist::delete(array_keys($lists));
DevblocksPlatform::redirect(new DevblocksHttpResponse(array('home')));
}