Subversion Repositories wimsdev

Rev

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

Rev 15985 Rev 16250
Line 133... Line 133...
133 
  !endif
 133 
  !endif
134 
  !read adm/class/stat
 134 
  !read adm/class/stat
135 
  listerase=!makelist user_regprop i for i=1 to $[min($limit_regvars,$regvars_cnt)]
 135 
  listerase=!makelist user_regprop i for i=1 to $[min($limit_regvars,$regvars_cnt)]
136 
  listerase=!nospace $listerase
 136 
  listerase=!nospace $listerase
137 
  !reset user_lastname, user_firstname, user_email, user_regnum, user_photourl, user_comments,\
 137 
  !reset user_lastname, user_firstname, user_email, user_regnum, user_photourl, user_comments,\
138 
     user_supervisable, user_supervise, user_participate, user_external_auth,wims_deposit,$listerase
 138 
     user_supervisable, user_supervise, user_participate, user_external_auth,wims_deposit,$listerase,user_mkclass
139 
  !defread $userdef
 139 
  !defread $userdef
140 
  !if $wims_user=supervisor and $getuser!=supervisor
 140 
  !if $wims_user=supervisor and $getuser!=supervisor
141 
    user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
 141 
    user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
142 
  !endif
 142 
  !endif
143 
!endif
 143 
!endif
144 
 
 144 
 
145 
!reset up_lastname,up_firstname,up_email,up_regnum,up_comments_$(wims_class),up_photourl,up_vars,up_external_auth,\
 145 
!reset up_lastname,up_firstname,up_email,up_regnum,up_comments_$(wims_class),up_photourl,up_vars,up_external_auth,\
146 
  up_supervise,job2,reg,up_participate
 146 
  up_supervise,job2,reg,up_participate,up_mkclass