Gestion des tâches critiques et axées sur les efforts

 1$ project = nouveau projet ('test_tasks.mp');
 2
 3$ collector = new ChildTasksCollector ();
 4
 5$ taskutils = new taskutils ();
 6
 7$ taskutils-> appliquer ($ project-> getroottask (), $ Collector, 0);
 8
 9$ tsk = new tsk ();
10
11$ tasks = $ collector-> getTasks ();
12
13$ i = 0;
14
15tandis que ($ i <sizeof ($ tâches))
16
17{
18
19    $task = $tasks -> get($i);
20
21    print $str_effort_driven = $task -> get($tsk -> IS_EFFORT_DRIVEN) != null ? "\nEffortDriven" : "\nNon-EffortDriven";
22
23    print $str_is_critical = $task -> get($tsk -> IS_CRITICAL) != null ? "\nCritical" : "\nNon-Critical";
24
25    $i += 1;
26
27}