Subversion Repositories wimsdev

Rev

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