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=prog
 2 
parent=prog
3 
!if $cancel!=$empty or $prog=$empty
 3 
!if $cancel!=$empty or $prog=$empty
4 
 !reset title,sup,passs,pass
 4 
  !reset title,sup,passs,pass
5 
 job=prog
 5 
  job=prog
6 
 !changeto jobs/$job.proc
 6 
  !changeto jobs/$job.proc
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
!readdef $classdir1/$prog/.def
 9 
!readdef $classdir1/$prog/.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/$prog/supervisor
 13 
  passs=!defof user_password in $classdir1/$prog/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 
!read adm/gateway/addicourse $sup,$title
 24 
!read adm/gateway/addicourse $sup,$title
25 
 
 25 
 
26 
!if $error!=$empty
 26 
!if $error!=$empty
27 
 !exit
 27 
  !exit
28 
!endif
 28 
!endif
29 
 
 29 
 
30 
!read adm/gateway/mkindex
 30 
!read adm/gateway/mkindex
31 
!reset title,sup,passs,alevel,confirm
 31 
!reset title,sup,passs,alevel,confirm
32 
job=prog
 32 
job=prog
33 
!changeto jobs/$job.proc
 33 
!changeto jobs/$job.proc
34 
 
 -