Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1 
 
2 
parent=gateway
3 
!if $cancel!=$empty
12617 bpr 4 
  job=first
5 
  !changeto jobs/$job.proc
23 reyssat 6 
!endif
7 
 
8 
!if $confirm=$empty
12617 bpr 9 
  pass=!defof class_password in $classdir1/.def
10 
  passs=!defof user_password in $classdir1/supervisor
11 
  !read adm/levelname.phtml
12 
  !exit
23 reyssat 13 
!endif
14 
 
15 
title=!trim $title
16 
title=!replace internal , by , in $title
17 
!if $title=$empty
12617 bpr 18 
  error=empty_data
19 
  !exit
23 reyssat 20 
!endif
21 
 
22 
!read adm/gateway/addlevel $sup,$title
23 
 
24 
!if $error!=$empty
12617 bpr 25 
  !exit
23 reyssat 26 
!endif
27 
 
28 
!read adm/gateway/mkindex
29 
!reset title,sup,passs,alevel
30 
job=first
31 
!changeto jobs/$job.proc