Subversion Repositories wimsdev

Rev

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

Rev 12070 Rev 12072
Line 6... Line 6...
6 
 !reset job,getuser
 6 
 !reset job,getuser
7 
 !exit
 7 
 !exit
8 
!endif
 8 
!endif
9 
!read adm/class/userdef classes,$wims_class,$getuser
 9 
!read adm/class/userdef classes,$wims_class,$getuser
10 
!defread $userdef
 10 
!defread $userdef
- 
 
 11 
!read adm/class/initclass $wims_class
11 
 
 12 
 
12 
!if $user_exists!=yes or $abandon!=$empty
 13 
!if $user_exists!=yes or $abandon!=$empty
13 
 !reset up_lastname,up_firstname,up_email,up_regnum,up_photourl,up_comments,up_vars,up_external_auth,up_supervise
 14 
 !reset up_lastname,up_firstname,up_email,up_regnum,up_photourl,up_comments,up_vars,up_external_auth,up_supervise
14 
 !if $wims_user=supervisor
 15 
 !if $wims_user=supervisor
- 
 
 16 
  !bound oldjob within userlist,teacher default userlist
15 
  job=userlist
 17 
  job=$oldjob
16 
  !changeto $job.proc
 18 
  !changeto $job.proc
17 
  !exit
 19 
  !exit
18 
 !else
 20 
 !else
19 
  job=getuser
 21 
  job=getuser
20 
  lastname=$user_lastname
 22 
  lastname=$user_lastname
Line 53... Line 55...
53 
 !for r in $replacelist
 55 
 !for r in $replacelist
54 
    !default up_$r=$(user_$r)
 56 
    !default up_$r=$(user_$r)
55 
 !next r
 57 
 !next r
56 
 replacelist=$replacelist,supervise
 58 
 replacelist=$replacelist,supervise
57 
 
 59 
 
- 
 
 60 
!! ------------- manage modification of user_supervise for teacher account
58 
 !if $wims_user=supervisor or ($wims_realuser!=supervisor and $wims_realuser!=$empty)
 61 
 !if $wims_user=supervisor or ($wims_realuser!=supervisor and $wims_realuser!=$empty)
59 
   !if $superv=no
 62 
   !if $superv=no
60 
    !set up_supervise=!listcomplement $wims_class in $up_supervise
 63 
    !set up_supervise=!listcomplement $wims_class in $up_supervise
61 
   !else
 64 
   !else
62 
    !if $wims_user=supervisor and $wims_realuser!=supervisor
 65 
    !if $wims_user=supervisor and $wims_realuser!=supervisor
Line 66... Line 69...
66 
       !set up_supervise=!listuniq $(up_supervise)
 69 
       !set up_supervise=!listuniq $(up_supervise)
67 
    !endif
 70 
    !endif
68 
   !endif
 71 
   !endif
69 
   !if $up_supervise=$empty
 72 
   !if $up_supervise=$empty
70 
     up_supervise=noclass
 73 
     up_supervise=noclass
- 
 
 74 
   !endif
- 
 
 75 
 !endif
- 
 
 76 
 
- 
 
 77 
!! ------------- manage modification of user_participate for teacher account
- 
 
 78 
  !if ($wims_realuser=supervise or $wims_realuser=$class_Supervisor) and $type_class=1
- 
 
 79 
   replacelist=$replacelist,participate
- 
 
 80 
   !if $superp=no
- 
 
 81 
    !set up_participate=!listcomplement $wims_class in $user_participate
- 
 
 82 
   !else
- 
 
 83 
    !set up_participate=!listuniq $wims_class,$user_participate
- 
 
 84 
   !endif
- 
 
 85 
   !if $up_participate=$empty
- 
 
 86 
     up_participate=noclass
71 
   !endif
 87 
   !endif
72 
 !endif
 88 
 !endif
73 
 
 89 
 
74 
 !set up_external_auth=!lowercase $up_external_auth
 90 
 !set up_external_auth=!lowercase $up_external_auth
75 
!!-------------------- photo file process management
 91 
!!-------------------- photo file process management