Subversion Repositories wimsdev

Rev

Rev 9477 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9477 Rev 12490
Line 1... Line 1...
1 
 
 1 
 
2 
!if $doc isin $opensite
 2 
!if $doc isin $opensite
3 
 opensite=!replace word $doc by $ in $opensite
 3 
  opensite=!replace word $doc by $ in $opensite
4 
!else
 4 
!else
5 
 opensite=$opensite $doc
 5 
  opensite=$opensite $doc
6 
!endif
 6 
!endif
7 
 
 7 
 
8 
op=!words2items $opensite
 8 
op=!words2items $opensite
9 
op=!listuniq $op
 9 
op=!listuniq $op
10 
opp=
 10 
opp=
11 
!for o in $op
 11 
!for o in $op
12 
 test=!defof tit in $docdir/$o/.def
 12 
  test=!defof tit in $docdir/$o/.def
13 
 !if $test!=$empty
 13 
  !if $test!=$empty
14 
  opp=$opp $o
 14 
   opp=$opp $o
15 
 !endif
 15 
  !endif
16 
!next o
 16 
!next o
17 
opensite=!trim $opp
 17 
opensite=!trim $opp
18 
!writefile $docdir/open.site $opensite
 18 
!writefile $docdir/open.site $opensite
19 
 
 19 
 
20 
job=home
 20 
job=home
21 
!read $job.proc
 21 
!read $job.proc
22 
 
 -