Subversion Repositories wimsdev

!readproc adm/class/initclass $wims_class

!if ($wims_supertype=2 and $type_class=2) or ($wims_supertype=4 and $type_class=4) or $wims_supertype=0

  reclist=exo,sheet,exam,doc,forum,user,score,cdt,livret,userphoto

!else

  reclist=exo,sheet,exam,doc,forum,user,score,cdt,livret

!endif

dirlist=src def score noscore exams sheets .users cdt livret photoboard

cls=log/classes/$wims_class

!readdef wimshome/log/classes/$wims_class/neighbors

sharing=

!for r in $sharelist

  !if $(sharing_$r)!=$empty

    sharing=!append item $r to $sharing

  !endif

!next r

!read scripts/reccnt.proc cl $cls

!if $clean!=$empty and $cl_testcnt<1

  sel=!replace item all by $reclist in $clean

  sel=!replace item sheet by sheet,exam in $sel

  sel=!replace item user by user,score,userphoto in $sel

  sel=!listintersect $sel and $reclist

  sel=!listcomplement $sharing in $sel

  sel=!listuniq $sel

  selw=!items2words $sel

  dictionary=$module_dir/arch/recdir

  dirs=!exec translator $selw

  dirs=!words2items $dirs

  dirs=!listuniq $dirs

  dirs=!items2words $dirs

  !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

  !if $dirs!=$empty

    !mexec scripts/clean.sh

    wims_class_log=Clean $sel by $wims_realuser

  !endif

  !read scripts/reccnt.proc cl $cls

!endif