Subversion Repositories wimsdev

Rev

Rev 12457 | Blame | Compare with Previous | Last modification | View Log | RSS feed


!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 or \
            $stoprec=user and $sharing_userphoto!=$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