Subversion Repositories wimsdev

Rev

Rev 5190 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed


parent=gateway
!if $cancel!=$empty
 job=first
 !changeto jobs/$job.proc
!endif

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

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

!read adm/gateway/addlevel $sup,$title

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

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