Rev 12115 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12115 | Rev 12457 | ||
---|---|---|---|
Line 4... | Line 4... | ||
4 | 4 | ||
5 | stoprec=!items2words $stoprec |
5 | stoprec=!items2words $stoprec |
6 | stoprec=!word 1 of $stoprec |
6 | stoprec=!word 1 of $stoprec |
7 | stoprec=!listintersect $stoprec and $sharelist |
7 | stoprec=!listintersect $stoprec and $sharelist |
8 | !if $stoprec!=$empty and $(sharing_$stoprec)=$nei and \ |
8 | !if $stoprec!=$empty and $(sharing_$stoprec)=$nei and \ |
9 | ($(me_$(stoprec)cnt)=0 or $me_testcnt<1 or \ |
9 | ($(me_$(stoprec)cnt)=0 or $me_testcnt<1 or \ |
10 | $stoprec notitemof $nosharelist or $confirm=yes) |
10 | $stoprec notitemof $nosharelist or $confirm=yes) |
11 | !if $stoprec=exo and $sharing_sheet!=$empty or \ |
11 | !if $stoprec=exo and $sharing_sheet!=$empty or \ |
12 | $stoprec=sheet and $sharing_exam!=$empty or \ |
12 | $stoprec=sheet and $sharing_exam!=$empty or \ |
13 | $stoprec=sheet and $sharing_livret!=$empty or \ |
13 | $stoprec=sheet and $sharing_livret!=$empty or \ |
14 | $stoprec=user and $sharing_userphoto!=$empty |
14 | $stoprec=user and $sharing_userphoto!=$empty |
15 | error=stopshare_dep $stoprec |
15 | error=stopshare_dep $stoprec |
- | 16 | job2=def |
|
- | 17 | !exit |
|
- | 18 | !endif |
|
- | 19 | !read adm/class/stopshare $nei $wims_class\ |
|
- | 20 | $stoprec |
|
- | 21 | # !mexec neighbor/stopshare.sh |
|
- | 22 | wims_class_log=Stop sharing $stoprec of $nei by $wims_realuser |
|
- | 23 | sharing_$stoprec= |
|
- | 24 | sh= |
|
- | 25 | !for r in $sharelist |
|
- | 26 | sh=!append item $(sharing_$r) to $sh |
|
- | 27 | !next r |
|
- | 28 | sharing_all=!listuniq $sh |
|
- | 29 | # !read neighbor/writeneighbor.proc |
|
- | 30 | sharing=!listcomplement $stoprec in $sharing |
|
- | 31 | !read neighbor/def.proc |
|
16 | job2=def |
32 | job2=def |
17 | !exit |
- | |
18 | !endif |
- | |
19 | !read adm/class/stopshare $nei $wims_class\ |
- | |
20 | $stoprec |
- | |
21 | # !mexec neighbor/stopshare.sh |
- | |
22 | wims_class_log=Stop sharing $stoprec of $nei by $wims_realuser |
- | |
23 | sharing_$stoprec= |
- | |
24 | sh= |
- | |
25 | !for r in $sharelist |
- | |
26 | sh=!append item $(sharing_$r) to $sh |
- | |
27 | !next r |
- | |
28 | sharing_all=!listuniq $sh |
- | |
29 | # !read neighbor/writeneighbor.proc |
- | |
30 | sharing=!listcomplement $stoprec in $sharing |
- | |
31 | !read neighbor/def.proc |
- | |
32 | job2=def |
- | |
33 | !endif |
33 | !endif |