#newcommand
@script JScript
function OnClick(clickData)
{
var cmd = clickData.func.command,stb=cmd.sourcetab,dtb=cmd.desttab;
var d=DOpus,df=d.Create(),dt=df.Date(),fs=d.FSUtil();
cmd.deselect = false;var sl=stb.selected;cmd.ClearFailed();
var sfiles=cmd.files;
cmd.ClearFiles();if(sfiles.count==0){return;}
var prtfdsnam="ParentContents";
cmd.AddLine('DOpusRT /col create "'+prtfdsnam+'"');
var prtfdsp="coll:\/\/"+prtfdsnam;
cmd.AddLine('@set prtfdsp='+prtfdsp);
cmd.AddLine('DOpusRT /col clear /full "{$prtfdsp}"');
for (var itms = new Enumerator(sfiles),fds=df.StringSetI();!itms.atEnd(); itms.moveNext()){
var x=itms.item(),xp=fs.NewPath(x.realpath);
var xpp=xp.test_parent?xp.pathpart:xp+"";
if(!fds.insert(""+xpp)){continue;}
cmd.AddLine('Copy FILE="'+xpp+'" TO="{$prtfdsp}" COPYTOCOLL=member AUTOSELECT=yes');
}
cmd.AddLine('Go PATH="{$prtfdsp}" NEWTAB=findexisting');
cmd.Run();//cmd.Clear();
}