Subversion Repositories wimsdev

Rev

Rev 12029 | Rev 12078 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
12030 guerimand 2
reclist=exo,sheet,exam,doc,forum,user,score,cdt,livret
3
dirlist=src def score noscore exams sheets .users cdt livret
23 reyssat 4
cls=log/classes/$wims_class
5
!readdef wimshome/log/classes/$wims_class/neighbors
6
sharing=
7
!for r in $sharelist
8
 !if $(sharing_$r)!=$empty
9
  sharing=!append item $r to $sharing
10
 !endif
11
!next r
12
 
13
!read scripts/reccnt.proc cl $cls
14
 
15
!if $clean!=$empty and $cl_testcnt<1
16
 sel=!replace item all by $reclist in $clean
17
 sel=!replace item sheet by sheet,exam in $sel
18
 sel=!replace item user by user,score in $sel
19
 sel=!listintersect $sel and $reclist
20
 sel=!listcomplement $sharing in $sel
21
 sel=!listuniq $sel
22
 selw=!items2words $sel
23
 dictionary=$module_dir/arch/recdir
24
 dirs=!exec translator $selw
25
 dirs=!words2items $dirs
26
 dirs=!listuniq $dirs
27
 dirs=!items2words $dirs
28
 !distribute words y y y y y y y y y y y y y y y y y y y y y y y into $sel
29
 !if $dirs!=$empty
30
  !mexec scripts/clean.sh
4598 bpr 31
  wims_class_log=Clean $sel by $wims_realuser
23 reyssat 32
 !endif
33
 !read scripts/reccnt.proc cl $cls
34
!endif