Subversion Repositories wimsdev

!if $cancel!=$empty
  !reset cancel, login, lastname, firstname, email, pass, pass2
  job=first
  !changeto jobs/$job.proc
!endif

!if $confirm=$empty
  !reset login, lastname, firstname, email, pass, pass2
  !exit
!endif

up_supervisable=yes
new_user=yes
!if $auth_method isitemof $auth_method_list
  pass=!randint 100000,999999
  pass2=$pass
!endif

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

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

job=teacher
!changeto jobs/$job.proc