Subversion Repositories wimsdev

parent=level
!if $cancel!=$empty or $level=$empty
  !reset title,sup,passs,pass
  job=level
  !changeto jobs/$job.proc
!endif

!readdef $classdir1/$level/.def
alevel=$class_level
!if $confirm=$empty
  pass=!defof class_password in $classdir1/$level/.def
  passs=!defof user_password in $classdir1/$level/supervisor
  !read adm/levelname.phtml
  !exit
!endif

title=!trim $title
!if $title=$empty
  error=empty_data
  !exit
!endif

!bound progstyle1 within mandatory,optional default mandatory
!bound progstyle2 within all,select default select

!read adm/gateway/mkindex
!read adm/gateway/addprog $sup,$title

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

!read adm/gateway/mkindex
!reset title,sup,passs,alevel,confirm
job=level
!changeto jobs/$job.proc