Subversion Repositories wimsdev

Rev

Rev 18479 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18479 Rev 18481
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
 - 
 
18 
!if $class_type isin 012
 16 
!if $class_type isin 012
19 
!! and $wims_superclass=$empty notneeded 20180612 FG ?
 17 
!! and $wims_superclass=$empty notneeded 20180612 FG ?
20 
  regvarlist=!makelist regprop x for x=1 to $regvars_cnt
 18 
  regvarlist=!makelist regprop x for x=1 to $regvars_cnt
21 
  regvarlist=!nospace $regvarlist
 19 
  regvarlist=!nospace $regvarlist
22 
  replacelist=!append item $regvarlist to $replacelist
 20 
  replacelist=!append item $regvarlist to $replacelist
Line 60... Line 58...
60 
  !else
 58 
  !else
61 
    replacelist=!listcomplement supervise,participate,supervisable in $replacelist
 59 
    replacelist=!listcomplement supervise,participate,supervisable in $replacelist
62 
  !endif
 60 
  !endif
63 
 
 61 
 
64 
  !! only real supervisor of class (mean : creator) can modify teacher account (very important protection)
 62 
  !! only real supervisor of class (mean : creator) can modify teacher account (very important protection)
65 
  !! why? verificare r12069
 - 
 
66 
  !if $wims_user=supervisor and yes isin $user_supervisable $up_supervisable and $class_Supervisor!=$wims_realuser
 63 
  !if $wims_user=supervisor and yes isin $user_supervisable $up_supervisable and $class_Supervisor!=$wims_realuser
67 
    bad=!append item $uu to $bad
 64 
    bad=!append item $uu to $bad
68 
!set wims_exec_error=$wims_exec_error\
 - 
 
69 
bad=$bad
 - 
 
70 
    !exit
 65 
    !exit
71 
  !endif
 66 
  !endif
72 
 
 67 
 
73 
  !! creator of class cannot loose manage access
 68 
  !! creator of class cannot loose manage access
74 
  !if $class_Supervisor=$uu and $wims_class notin $up_supervise
 69 
  !if $class_Supervisor=$uu and $wims_class notin $up_supervise