Subversion Repositories wimsdev

login=$teacher
test=!defof user_exists in $classdir1/.users/$login
!if $test!=yes
 error=bad_user
 !exit
!endif

data=!defof user_firstname,user_lastname,user_email,user_password,user_external_auth in \
 $classdir1/.users/$login
supervise=!defof user_supervise in $classdir1/.users/$login

!if $del!=$empty
 sup2=!listcomplement $del in $supervise
 !if $sup2!=$supervise
  !setdef !set user_supervise=$sup2 in $classdir1/.users/$login
 !endif
 !exit
!endif

!if $cancel!=$empty
 !distribute items $data into firstname, lastname, email,,up_external_auth
 !reset cancel
 job=teacher
 !changeto jobs/$job.proc
!endif

!if $confirm=$empty
 !distribute items $data into firstname, lastname, email,,up_external_auth
 !exit
!endif

up_supervisable=yes
new_user=no

!read scripts/adduser.proc
!read adm/gateway/mkteacherlist

!if $error!=$empty
 !exit
!endif