1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
!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=
|
