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 |