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

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

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

job=teacher
!changeto jobs/$job.proc