/**
* Initiates a new subscription cycle and registers a midcom.services.at call for the next cycle.
*
* The subscription cycles rely on midcom.services.at. I'm not sure if it is wise to rely on it for such
* a totally mission critical part of OpenPSA. Some safeguards might be wise to add.
*/
function run_cycle($cycle_number, $send_invoice = true)
{
if (time() < $this->_deliverable->start) {
debug_add('Subscription hasn\'t started yet, register the start-up event to $start');
return $this->_create_at_entry($cycle_number, $this->_deliverable->start);
}
debug_add('Running cycle ' . $cycle_number . ' for deliverable "' . $this->_deliverable->title . '"');
$this_cycle_start = $this->get_cycle_start($cycle_number, time());
$next_cycle_start = $this->calculate_cycle_next($this_cycle_start);
$product = org_openpsa_products_product_dba::get_cached($this->_deliverable->product);
if ($this->_deliverable->state < org_openpsa_sales_salesproject_deliverable_dba::STATUS_STARTED) {
$this->_deliverable->state = org_openpsa_sales_salesproject_deliverable_dba::STATUS_STARTED;
$this->_deliverable->update();
}
if ($send_invoice) {
$calculator = new org_openpsa_invoices_calculator();
$this_cycle_amount = $calculator->process_deliverable($this->_deliverable, $cycle_number);
}
$tasks_completed = array();
$tasks_not_completed = array();
if ($product->orgOpenpsaObtype == org_openpsa_products_product_dba::TYPE_SERVICE) {
// Close previous task(s)
$last_task = null;
$new_task = null;
$task_qb = org_openpsa_projects_task_dba::new_query_builder();
$task_qb->add_constraint('agreement', '=', $this->_deliverable->id);
$task_qb->add_constraint('status', '<', org_openpsa_projects_task_status_dba::CLOSED);
$tasks = $task_qb->execute();
foreach ($tasks as $task) {
$stat = org_openpsa_projects_workflow::complete($task, sprintf(midcom::get('i18n')->get_string('completed by subscription %s', 'org.openpsa.sales'), $cycle_number));
if ($stat) {
$tasks_completed[] = $task;
} else {
$tasks_not_completed[] = $task;
}
$last_task = $task;
}
// Create task for the duration of this cycle
$task_title = sprintf('%s %s', $this->_deliverable->title, $this->get_cycle_identifier($this_cycle_start));
$new_task = $this->create_task($this_cycle_start, $next_cycle_start - 1, $task_title, $last_task);
}
// TODO: Warehouse management: create new order
if ($this->_deliverable->end < $next_cycle_start && $this->_deliverable->end != 0) {
debug_add('Do not register next cycle, the contract ends before');
return true;
}
if ($this->_create_at_entry($cycle_number + 1, $next_cycle_start)) {
if ($send_invoice) {
$this->_notify_owner($calculator, $cycle_number, $next_cycle_start, $this_cycle_amount, $tasks_completed, $tasks_not_completed);
}
return true;
} else {
return false;
}
}
/**
* @param mixed $handler_id The ID of the handler.
* @param Array $args The argument list.
* @param Array &$data The local request data.
*/
public function _handler_action($handler_id, array $args, array &$data)
{
midcom::get('auth')->require_valid_user();
// Check if we get the task
$task = new org_openpsa_projects_task_dba($args[0]);
$task->require_do('midgard:update');
// Check if the action is a valid one
switch ($args[1]) {
case 'reopen':
org_openpsa_projects_workflow::reopen($task);
return new midcom_response_relocate("task/{$task->guid}/");
case 'complete':
org_openpsa_projects_workflow::complete($task);
return new midcom_response_relocate("task/{$task->guid}/");
default:
throw new midcom_error('Unknown action ' . $args[1]);
}
}
/**
* helper function - contains code to mark invoice as sent,
* maybe move it to invoice-class ?
*
* @param org_openpsa_invoices_invoice_dba $invoice contains invoice
*/
private function _mark_as_sent(org_openpsa_invoices_invoice_dba $invoice)
{
if (!$invoice->sent) {
$invoice->sent = time();
if ($invoice->update()) {
$this->_request_data['message']['message'] = sprintf($this->_l10n->get('marked invoice %s sent'), $invoice->get_label());
} else {
$this->_request_data['message']['message'] = sprintf($this->_l10n->get('could not mark invoice %s paid'), $invoice->get_label());
return false;
}
$mc = new org_openpsa_relatedto_collector($invoice->guid, 'org_openpsa_projects_task_dba');
$tasks = $mc->get_related_objects();
// Close "Send invoice" task
foreach ($tasks as $task) {
if (org_openpsa_projects_workflow::complete($task) && !isset($args["no_redirect"])) {
midcom::get('uimessages')->add($this->_l10n->get('org.openpsa.invoices'), sprintf($this->_l10n->get('marked task "%s" finished'), $task->title), 'ok');
}
}
}
return true;
}
public function testCompleteUnmanagedTask()
{
self::$_task->manager = 0;
self::$_task->update();
self::$_task->refresh();
$stat = org_openpsa_projects_workflow::complete(self::$_task, 'test comment');
$this->assertTrue($stat);
self::$_task->refresh();
$this->assertEquals(org_openpsa_projects_task_status_dba::CLOSED, self::$_task->status);
$this->assertEquals('closed', self::$_task->status_type);
$this->assertEquals('test comment', self::$_task->status_comment);
$qb = org_openpsa_projects_task_status_dba::new_query_builder();
$qb->add_constraint('task', '=', self::$_task->id);
$result = $qb->execute();
$this->assertEquals(sizeof($result), 3);
$status = $result[0];
$this->assertEquals($status->targetPerson, 0);
}
