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