Поводження з критичними та керованими зусиллями завданнями

 1$ project = новий проект ('test_tasks.mpp');
 2
 3$ collector = новий ChildTaskScollector ();
 4
 5$ taskutils = нові taskutils ();
 6
 7$ taskutils-> Застосувати ($ project-> getRoottask (), $ collector, 0);
 8
 9$ tsk = новий tsk ();
10
11$ tasks = $ collector-> getTasks ();
12
13$ i = 0;
14
15while ($ i <sizeof ($ tasks))
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}