Ain´t working that TCL script baba. Problem is otherwise.
proc IsNonamed { objid } { if { [objective get $objid name] != 0 } { return 0; } set parent [objective get $objid parent] if { $parent == 0 } { return 0; } if { [objective get $parent name ] == 0 } { return 1; } else { return 0; } } proc ForceName { objid } { objective set $objid name [campaign name2id -create [objective name $objid] ] } set nnames 0 foreach var [lsort -real [objective list]] { if { [IsNonamed $var] == 1 } { printout "Changed name for: [objective name $var]" ForceName $var incr nnames 1} } printout "All done, total of $nnames objectives renamed."