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 12616
Line 4... Line 4...
4 
!if $cancel!=$empty or $level=$empty
 4 
!if $cancel!=$empty or $level=$empty
5 
 :back
 5 
  :back
6 
 job=first
 6 
  job=first
7 
 !changeto jobs/$job.proc
 7 
  !changeto jobs/$job.proc
8 
!endif
 8 
!endif
9 
 
 9 
 
10 
levelhome=$classdir1/$level
 10 
levelhome=$classdir1/$level
11 
!readdef $levelhome/.def
 11 
!readdef $levelhome/.def
12 
!if $class_defined!=yes
 12 
!if $class_defined!=yes
13 
 !goto back
 13 
  !goto back
14 
!endif
 14 
!endif
15 
 
 15 
 
16 
!if $confirm=$empty
 16 
!if $confirm=$empty
17 
 :normal
 17 
  :normal
18 
 classes=!record 0 of $levelhome/classes
 18 
  classes=!record 0 of $levelhome/classes
19 
 programs=!record 0 of $levelhome/programs
 19 
  programs=!record 0 of $levelhome/programs
20 
 classes=!nonempty lines $classes
 20 
  classes=!nonempty lines $classes
21 
 programs=!nonempty lines $programs
 21 
  programs=!nonempty lines $programs
22 
 classcnt=!linecnt $classes
 22 
  classcnt=!linecnt $classes
23 
 progcnt=!linecnt $programs
 23 
  progcnt=!linecnt $programs
24 
 pass=$class_password
 24 
  pass=$class_password
25 
 passs=!defof user_password in $levelhome/supervisor
 25 
  passs=!defof user_password in $levelhome/supervisor
26 
 !read adm/levelname.phtml
 26 
  !read adm/levelname.phtml
27 
 !exit
 27 
  !exit
28 
!endif
 28 
!endif
29 
 
 29 
 
30 
title=!trim $title
 30 
title=!trim $title
31 
title=!replace internal , by , in $title
 31 
title=!replace internal , by , in $title
32 
!if $title=$empty
 32 
!if $title=$empty
33 
 error=empty_data
 33 
  error=empty_data
34 
 !exit
 34 
  !exit
35 
!endif
 35 
!endif
36 
 
 36 
 
37 
modclass_list=description,supervisor,Supervisor,level,secure,email
 37 
modclass_list=description,supervisor,Supervisor,level,secure,email
38 
cadd_description=$title
 38 
cadd_description=$title
39 
cadd_Supervisor=$sup
 39 
cadd_Supervisor=$sup
Line 45... Line 45...
45 
!read adm/gateway/modclass $level
 45 
!read adm/gateway/modclass $level
46 
!reset confirm,title,sup,passs,alevel
 46 
!reset confirm,title,sup,passs,alevel
47 
!readdef $levelhome/.def
 47 
!readdef $levelhome/.def
48 
!read adm/gateway/mkindex
 48 
!read adm/gateway/mkindex
49 
!goto normal
 49 
!goto normal
50 
 
 -