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