Subversion Repositories wimsdev

!read scripts/reccnt.proc me log/classes/$wims_class
!read scripts/reccnt.proc it log/classes/$nei

stoprec=!items2words $stoprec
stoprec=!word 1 of $stoprec
stoprec=!listintersect $stoprec and $sharelist
!if $stoprec!=$empty and $(sharing_$stoprec)=$nei and \
        ($(me_$(stoprec)cnt)=0 or $me_testcnt<1 or \
        $stoprec notitemof $nosharelist or $confirm=yes)
 !if $stoprec=exo and $sharing_sheet!=$empty or \
        $stoprec=sheet and $sharing_exam!=$empty or \
        $stoprec=sheet and $sharing_livret!=$empty
  error=stopshare_dep $stoprec
  job2=def
  !exit
 !endif
 !read adm/class/stopshare $nei $wims_class\
        $stoprec
# !mexec neighbor/stopshare.sh
 wims_class_log=Stop sharing $stoprec of $nei by $wims_realuser
 sharing_$stoprec=
 sh=
 !for r in $sharelist
  sh=!append item $(sharing_$r) to $sh
 !next r
 sharing_all=!listuniq $sh
# !read neighbor/writeneighbor.proc
 sharing=!listcomplement $stoprec in $sharing
 !read neighbor/def.proc
 job2=def
!endif