Subversion Repositories wimsdev

!if $doc isin $opensite
 opensite=!replace word $doc by $ in $opensite
!else
 opensite=$opensite $doc
!endif

op=!words2items $opensite
op=!listuniq $op
opp=
!for o in $op
 test=!defof tit in $docdir/$o/.def
 !if $test!=$empty
  opp=$opp $o
 !endif
!next o
opensite=!trim $opp
!writefile $docdir/open.site $opensite

job=home
!read $job.proc