Subversion Repositories wimsdev

Rev

Rev 5194 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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