Rev 12030 | Rev 12118 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 12030 | Rev 12078 | ||
|---|---|---|---|
| Line -... | Line 1... | ||
| - | 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 |
|
| 1 | 4 | !else |
|
| 2 | reclist=exo,sheet,exam,doc,forum,user,score,cdt,livret |
5 | reclist=exo,sheet,exam,doc,forum,user,score,cdt,livret |
| - | 6 | !endif |
|
| 3 | dirlist=src def score noscore exams sheets .users cdt livret |
7 | dirlist=src def score noscore exams sheets .users cdt livret userphoto |
| 4 | cls=log/classes/$wims_class |
8 | cls=log/classes/$wims_class |
| 5 | !readdef wimshome/log/classes/$wims_class/neighbors |
9 | !readdef wimshome/log/classes/$wims_class/neighbors |
| 6 | sharing= |
10 | sharing= |
| 7 | !for r in $sharelist |
11 | !for r in $sharelist |
| 8 | !if $(sharing_$r)!=$empty |
12 | !if $(sharing_$r)!=$empty |
| 9 | sharing=!append item $r to $sharing |
13 | sharing=!append item $r to $sharing |
| 10 | !endif |
14 | !endif |
| 11 | !next r |
15 | !next r |
| 12 | 16 | ||
| 13 | !read scripts/reccnt.proc cl $cls |
17 | !read scripts/reccnt.proc cl $cls |
| 14 | 18 | ||
| 15 | !if $clean!=$empty and $cl_testcnt<1 |
19 | !if $clean!=$empty and $cl_testcnt<1 |
| 16 | sel=!replace item all by $reclist in $clean |
20 | sel=!replace item all by $reclist in $clean |
| 17 | sel=!replace item sheet by sheet,exam in $sel |
21 | sel=!replace item sheet by sheet,exam in $sel |
| 18 | sel=!replace item user by |
22 | sel=!replace item user by user,score,userphoto in $sel |
| 19 | sel=!listintersect $sel and $reclist |
23 | sel=!listintersect $sel and $reclist |
| - | 24 | ||
| 20 | sel=!listcomplement $sharing in $sel |
25 | sel=!listcomplement $sharing in $sel |
| 21 | sel=!listuniq $sel |
26 | sel=!listuniq $sel |
| 22 | selw=!items2words $sel |
27 | selw=!items2words $sel |
| 23 | dictionary=$module_dir/arch/recdir |
28 | dictionary=$module_dir/arch/recdir |
| 24 | dirs=!exec translator $selw |
29 | dirs=!exec translator $selw |