Subversion Repositories wimsdev

Rev

Rev 14335 | Rev 15985 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14335 Rev 15966
Line 48... Line 48...
48
!! make list of name of classes,program etc...
48
!! make list of name of classes,program etc...
49
!readproc mksubclslist.proc
49
!readproc mksubclslist.proc
50
 
50
 
51
!if $reg!=$empty
51
!if $reg!=$empty
52
  up_password=
52
  up_password=
53
  replacelist=regnum,comments,photourl,email,external_auth
53
  replacelist=regnum,comments,photourl,email,external_auth,supervise,participate
54
  !for r in $replacelist
54
  !for r in $replacelist
55
    !default up_$r=$(user_$r)
55
    !default up_$r=$(user_$r)
56
  !next r
56
  !next r
57
  !for i=1 to $[min($limit_regvars,$regvars_cnt)]
57
  !for i=1 to $[min($limit_regvars,$regvars_cnt)]
58
    !default up_regprop$i=$(regprop$i)
58
    !default up_regprop$i=$(regprop$i)
Line 65... Line 65...
65
    !else
65
    !else
66
      !if $wims_user=supervisor and $wims_realuser!=supervisor
66
      !if $wims_user=supervisor and $wims_realuser!=supervisor
67
        !!not administrator of the portail
67
        !!not administrator of the portail
68
        !set up_supervise=!listuniq $wims_class, $(user_supervise)
68
        !set up_supervise=!listuniq $wims_class, $(user_supervise)
69
      !else
69
      !else
-
 
70
        !! tested in groupements, needs to be checked in portals
-
 
71
	!! (in portals some zones can have $type_class=1)
-
 
72
        !if $type_class=1
-
 
73
          !set up_supervise=!listuniq $wims_class,$(up_supervise)
-
 
74
        !else
70
        !set up_supervise=!listuniq $(up_supervise)
75
          !set up_supervise=!listuniq $(up_supervise)
-
 
76
	!endif
71
      !endif
77
      !endif
72
    !endif
78
    !endif
73
    !if $up_supervise=$empty
79
    !if $up_supervise=$empty
74
      up_supervise=noclass
80
      up_supervise=noclass
75
    !endif
81
    !endif