Subversion Repositories wimsdev

Rev

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

Rev 12466 Rev 12934
Line 7... Line 7...
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 
!read adm/class/initclass $wims_class
- 
 
 12 
regvars_cnt=!itemcnt $regvars_class
12 
 
 13 
 
13 
!if $user_exists!=yes or $abandon!=$empty
 14 
!if $user_exists!=yes or $abandon!=$empty
14 
  !reset up_lastname,up_firstname,up_email,up_regnum,up_photourl,up_comments,up_vars,up_external_auth,up_supervise
 15 
  !reset up_lastname,up_firstname,up_email,up_regnum,up_photourl,up_comments,up_vars,up_external_auth,up_supervise
15 
  !if $wims_user=supervisor
 16 
  !if $wims_user=supervisor
16 
    !bound oldjob within userlist,teacher default userlist
 17 
    !bound oldjob within userlist,teacher default userlist
Line 52... Line 53...
52 
  up_password=
 53 
  up_password=
53 
  replacelist=regnum,comments,photourl,email,external_auth
 54 
  replacelist=regnum,comments,photourl,email,external_auth
54 
  !for r in $replacelist
 55 
  !for r in $replacelist
55 
    !default up_$r=$(user_$r)
 56 
    !default up_$r=$(user_$r)
56 
  !next r
 57 
  !next r
- 
 
 58 
  !for i=1 to $[min($limit_regvars,$regvars_cnt)]
- 
 
 59 
    !default up_regprop$i=$(regprop$i)
- 
 
 60 
  !next i
57 
  replacelist=$replacelist,supervise
 61 
  replacelist=$replacelist,supervise
58 
 
 - 
 
59 
  !! ------------- manage modification of user_supervise for teacher account
 62 
  !! ------------- manage modification of user_supervise for teacher account
60 
  !if $wims_user=supervisor or ($wims_realuser!=supervisor and $wims_realuser!=$empty)
 63 
  !if $wims_user=supervisor or ($wims_realuser!=supervisor and $wims_realuser!=$empty)
61 
    !if $superv=no
 64 
    !if $superv=no
62 
      !set up_supervise=!listcomplement $wims_class in $up_supervise
 65 
      !set up_supervise=!listcomplement $wims_class in $up_supervise
63 
    !else
 66 
    !else
Line 122... Line 125...
122 
  !read adm/class/mkuserlist
 125 
  !read adm/class/mkuserlist
123 
  !if $class_type isin 1234
 126 
  !if $class_type isin 1234
124 
    !read adm/gateway/mkteacherlist
 127 
    !read adm/gateway/mkteacherlist
125 
  !endif
 128 
  !endif
126 
  !read adm/class/stat
 129 
  !read adm/class/stat
- 
 
 130 
  listerase=!makelist user_regprop i for i=1 to $[min($limit_regvars,$regvars_cnt)]
- 
 
 131 
  listerase=!nospace $listerase
127 
  !reset user_lastname, user_firstname, user_email, user_regnum, user_photourl, user_comments,\
 132 
  !reset user_lastname, user_firstname, user_email, user_regnum, user_photourl, user_comments,\
128 
     user_supervisable, user_supervise, user_participate, user_external_auth,wims_deposit
 133 
     user_supervisable, user_supervise, user_participate, user_external_auth,wims_deposit,$listerase
129 
  !defread $userdef
 134 
  !defread $userdef
130 
  !if $wims_user=supervisor and $getuser!=supervisor
 135 
  !if $wims_user=supervisor and $getuser!=supervisor
131 
    user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
 136 
    user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
132 
  !endif
 137 
  !endif
133 
!endif
 138 
!endif