Subversion Repositories wimsdev

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

addshare=!items2words $addshare
addshare=!word 1 of $addshare
addshare=!listintersect $addshare and $sharelist
!if $addshare!=$empty and $addshare notitemof $sharing\
    and $(sharable_$addshare)=$empty\
          and ($(me_$(addshare)cnt)<1 or $addshare notitemof $nosharelist)\
          and $addshare isitemof $nsharable
  classexp=!defof class_expiration in wimshome/log/classes/$wims_class/.def
  neiexp=!defof class_expiration in wimshome/log/classes/$nei/.def
  !if $classexp>$neiexp
    error=sharing_expdate $neiexp
    !exit
  !endif
  otherlang=!defof class_lang in wimshome/log/classes/$nei/.def
  !if $addshare=sheet and $sharing_exo!=$nei or \
          $addshare=exam and $sharing_sheet!=$nei or \
          $addshare=livret and $sharing_sheet!=$nei or \
          $addshare=userphoto and $sharing_user!=$nei
    error=share_dep $addshare
    !exit
  !endif
  !read adm/class/addshare $nei $wims_class\
        $addshare
  wims_class_log=share $addshare of $nei by $wims_realuser
  sharing=!append item $addshare to $sharing
  !for sh in $nsharable
    sharable_$sh=
  !next sh
  !readdef wimshome/log/classes/$wims_class/neighbors
!endif

addshare=