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