Subversion Repositories wimsdev

!default wims_superclass=$wims_class
!read adm/class/userisinclass $wims_superclass,$getuser
!set class_Supervisor=!defof class_Supervisor in wimshome/log/classes/$wims_class/.def
!if yes notin $script_reply
 error=bad_usercls
 !reset job,getuser
 !exit
!endif
!read adm/class/userdef classes,$wims_class,$getuser
!defread $userdef

!if $user_exists!=yes or $abandon!=$empty
 !reset up_lastname,up_firstname,up_email,up_regnum,up_photourl,up_comments,up_vars,up_external_auth,up_supervise
 !if $wims_user=supervisor
  job=userlist
  !changeto $job.proc
  !exit
 !else
  job=getuser
  lastname=$user_lastname
  firstname=$user_firstname
  !changeto var.proc.getuser
 !endif
!endif

!if $wims_user=supervisor and $getuser!=supervisor
 user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
!endif

!if $reg!=$empty
 class_pass=!defof class_password in wimshome/log/classes/$wims_class/.def
 !if $wims_user!=supervisor and $passcheck!=$class_pass
  error=bad_classpass
  !exit
 !endif

 up_password=
 replacelist=regnum,comments,photourl,email,external_auth,supervise
  !for r in $replacelist
    !default up_$r=$(user_$r)
  !next
  !if $wims_user=supervisor or ($wims_realuser!=supervisor and $wims_realuser!=$empty)
   !if $superv=no
    !set up_supervise=!listcomplement $wims_class in $up_supervise
   !else
     !if $wims_user=supervisor and $wims_realuser!=supervisor
!!not administrator of the portail
       !set up_supervise=!listuniq $wims_class, $(user_supervise)
     !else
       !set up_supervise=!listuniq $(up_supervise)
     !endif
   !endif
   !if $up_supervise=$empty
     up_supervise=noclass
   !endif
  !!reset superv
 !endif

 !set up_external_auth=!lowercase $up_external_auth
 !read adm/class/adduser $getuser
 !read adm/class/mkuserlist
 !if $class_type isin 1234
  !read adm/gateway/mkteacherlist
 !endif
 !reset user_lastname, user_firstname, user_email, user_regnum, user_photourl, user_comments,\
    user_supervisable, user_supervise, user_participate, user_external_auth
 !defread $userdef
 !if $wims_user=supervisor and $getuser!=supervisor
  user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
 !endif
!endif

!reset up_lastname,up_firstname,up_email,up_regnum,up_comments_$(wims_class),up_photourl,up_vars,up_external_auth,\
  up_supervise