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
  up_external_auth=!lowercase 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
  up_external_auth=!lowercase up_external_auth
  !exit
!endif

up_supervisable=yes
new_user=no

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

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