Subversion Repositories wimsdev

Rev

Rev 12616 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12616 Rev 12982
Line 21... Line 21...
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
 - 
 
27 
  !exit
 26 
  !exit
28 
!endif
 27 
!endif
29 
 
 28 
 
30 
title=!trim $title
 29 
title=!trim $title
31 
title=!replace internal , by , in $title
 30 
title=!replace internal , by , in $title
32 
!if $title=$empty
 31 
!if $title=$empty
33 
  error=empty_data
 32 
  error=empty_data
34 
  !exit
 33 
  !exit
35 
!endif
 34 
!endif
36 
 
 35 
 
37 
modclass_list=description,supervisor,Supervisor,level,secure,email
 36 
modclass_list=description,supervisor,Supervisor,password,secure,email
38 
cadd_description=$title
 37 
cadd_description=$title
39 
cadd_Supervisor=$sup
 38 
cadd_Supervisor=$sup
40 
cadd_level=$alevel
 - 
 
41 
cadd_secure=$sechost
 - 
 
42 
modclass_slist=password,email
 39 
modclass_slist=password,email
- 
 
 40 
cadd_level=$alevel
43 
sadd_password=$passs
 41 
sadd_password=$passs
- 
 
 42 
cadd_password=$pass
- 
 
 43 
cadd_secure=$sechost
44 
 
 44 
 
45 
!read adm/gateway/modclass $level
 45 
!read adm/gateway/modclass $level
- 
 
 46 
 
46 
!reset confirm,title,sup,passs,alevel
 47 
!if $error!=$empty
- 
 
 48 
  !exit
47 
!readdef $levelhome/.def
 49 
!endif
- 
 
 50 
 
48 
!read adm/gateway/mkindex
 51 
!read adm/gateway/mkindex
- 
 
 52 
!reset confirm,title,sup,passs,alevel,pass
- 
 
 53 
!readdef $levelhome/.def
49 
!goto normal
 54 
!goto normal