Subversion Repositories wimsdev

Rev

Rev 12617 | 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 
 
17099 guerimand 22 
!read adm/gateway/mkindex
23 reyssat 23 
!read adm/gateway/addlevel $sup,$title
24 
 
25 
!if $error!=$empty
12617 bpr 26 
  !exit
23 reyssat 27 
!endif
28 
 
29 
!read adm/gateway/mkindex
30 
!reset title,sup,passs,alevel
31 
job=first
32 
!changeto jobs/$job.proc