Subversion Repositories wimsdev

parent=gateway
thiscode=$level
!if $cancel!=$empty or $level=$empty
 :back
 job=first
 !changeto jobs/$job.proc
!endif

levelhome=$classdir1/$level
!readdef $levelhome/.def
!if $class_defined!=yes
 !goto back
!endif

!if $confirm=$empty
 :normal
 classes=!record 0 of $levelhome/classes
 programs=!record 0 of $levelhome/programs
 classes=!nonempty lines $classes
 programs=!nonempty lines $programs
 classcnt=!linecnt $classes
 progcnt=!linecnt $programs
 pass=$class_password
 passs=!defof user_password in $levelhome/supervisor
 !read adm/levelname.phtml
 !exit
!endif

title=!trim $title
title=!replace internal , by , in $title
!if $title=$empty
 error=empty_data
 !exit
!endif

modclass_list=description,supervisor,Supervisor,level,secure,email
cadd_description=$title
cadd_Supervisor=$sup
cadd_level=$alevel
cadd_secure=$sechost
modclass_slist=password,email
sadd_password=$passs

!read adm/gateway/modclass $level
!reset confirm,title,sup,passs,alevel
!readdef $levelhome/.def
!read adm/gateway/mkindex
!goto normal