Subversion Repositories wimsdev

Rev

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

Rev 6702 Rev 12617
Line 2... Line 2...
2 
parent=level
 2 
parent=level
3 
!if $cancel!=$empty or $level=$empty
 3 
!if $cancel!=$empty or $level=$empty
4 
 !reset title,sup,passs,pass
 4 
  !reset title,sup,passs,pass
5 
 job=level
 5 
  job=level
6 
 !changeto jobs/$job.proc
 6 
  !changeto jobs/$job.proc
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
!readdef $classdir1/$level/.def
 9 
!readdef $classdir1/$level/.def
10 
alevel=$class_level
 10 
alevel=$class_level
11 
!if $confirm=$empty
 11 
!if $confirm=$empty
12 
 pass=!defof class_password in $classdir1/$level/.def
 12 
  pass=!defof class_password in $classdir1/$level/.def
13 
 passs=!defof user_password in $classdir1/$level/supervisor
 13 
  passs=!defof user_password in $classdir1/$level/supervisor
14 
 !read adm/levelname.phtml
 14 
  !read adm/levelname.phtml
15 
 !exit
 15 
  !exit
16 
!endif
 16 
!endif
17 
 
 17 
 
18 
title=!trim $title
 18 
title=!trim $title
19 
!if $title=$empty
 19 
!if $title=$empty
20 
 error=empty_data
 20 
  error=empty_data
21 
 !exit
 21 
  !exit
22 
!endif
 22 
!endif
23 
 
 23 
 
24 
!bound progstyle1 within mandatory,optional default mandatory
 24 
!bound progstyle1 within mandatory,optional default mandatory
25 
!bound progstyle2 within all,select default select
 25 
!bound progstyle2 within all,select default select
26 
 
 26 
 
27 
!read adm/gateway/addprog $sup,$title
 27 
!read adm/gateway/addprog $sup,$title
28 
 
 28 
 
29 
!if $error!=$empty
 29 
!if $error!=$empty
30 
 !exit
 30 
  !exit
31 
!endif
 31 
!endif
32 
 
 32 
 
33 
!read adm/gateway/mkindex
 33 
!read adm/gateway/mkindex
34 
!reset title,sup,passs,alevel,confirm
 34 
!reset title,sup,passs,alevel,confirm
35 
job=level
 35 
job=level
36 
!changeto jobs/$job.proc
 36 
!changeto jobs/$job.proc
37 
 
 -