Subversion Repositories wimsdev

Rev

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

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