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