Subversion Repositories wimsdev

Rev

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

Rev 16820 Rev 18479
Line 11... Line 11...
11 
!default class_type=0
 11 
!default class_type=0
12 
!read adm/class/authchars
 12 
!read adm/class/authchars
13 
l=!text select $char_login in $uu
 13 
l=!text select $char_login in $uu
14 
t=!char 1 of $uu
 14 
t=!char 1 of $uu
15 
n=!charcnt $l
 15 
n=!charcnt $l
- 
 
 16 
!set wims_exec_error=$wims_exec_error\
- 
 
 17 
(adduser) class_type=$class_type
16 
!if $class_type isin 012
 18 
!if $class_type isin 012
17 
!! and $wims_superclass=$empty notneeded 20180612 FG ?
 19 
!! and $wims_superclass=$empty notneeded 20180612 FG ?
18 
  regvarlist=!makelist regprop x for x=1 to $regvars_cnt
 20 
  regvarlist=!makelist regprop x for x=1 to $regvars_cnt
19 
  regvarlist=!nospace $regvarlist
 21 
  regvarlist=!nospace $regvarlist
20 
  replacelist=!append item $regvarlist to $replacelist
 22 
  replacelist=!append item $regvarlist to $replacelist
Line 58... Line 60...
58 
  !else
 60 
  !else
59 
    replacelist=!listcomplement supervise,participate,supervisable in $replacelist
 61 
    replacelist=!listcomplement supervise,participate,supervisable in $replacelist
60 
  !endif
 62 
  !endif
61 
 
 63 
 
62 
  !! only real supervisor of class (mean : creator) can modify teacher account (very important protection)
 64 
  !! only real supervisor of class (mean : creator) can modify teacher account (very important protection)
- 
 
 65 
  !! why? verificare r12069
63 
  !if $wims_user=supervisor and yes isin $user_supervisable $up_supervisable and $class_Supervisor!=$wims_realuser
 66 
  !if $wims_user=supervisor and yes isin $user_supervisable $up_supervisable and $class_Supervisor!=$wims_realuser
64 
    bad=!append item $uu to $bad
 67 
    bad=!append item $uu to $bad
- 
 
 68 
!set wims_exec_error=$wims_exec_error\
- 
 
 69 
bad=$bad
65 
    !exit
 70 
    !exit
66 
  !endif
 71 
  !endif
67 
 
 72 
 
68 
  !! creator of class cannot loose manage access
 73 
  !! creator of class cannot loose manage access
69 
  !if $class_Supervisor=$uu and $wims_class notin $up_supervise
 74 
  !if $class_Supervisor=$uu and $wims_class notin $up_supervise