Subversion Repositories wimsdev

Rev

Rev 12118 | Rev 16702 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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