Subversion Repositories wimsdev

Rev

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

Rev 5542 Rev 12617
Line 4... Line 4...
4 
!if $cancel!=$empty or $class=$empty
 4 
!if $cancel!=$empty or $class=$empty
5 
 job=first
 5 
  job=first
6 
 !changeto jobs/$job.proc
 6 
  !changeto jobs/$job.proc
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
classhome=$classdir1/$class
 9 
classhome=$classdir1/$class
10 
!readdef $classhome/.def
 10 
!readdef $classhome/.def
11 
!if $class_defined!=yes
 11 
!if $class_defined!=yes
12 
!!FIXME back does not exist
 12 
  !!FIXME back does not exist
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 
 courses=!record 0 of $classhome/courses
 18 
  courses=!record 0 of $classhome/courses
19 
 courses=!nonempty lines $courses
 19 
  courses=!nonempty lines $courses
20 
 coursecnt=!linecnt $courses
 20 
  coursecnt=!linecnt $courses
21 
 pass=$class_password
 21 
  pass=$class_password
22 
 passs=!defof user_password in $classhome/supervisor
 22 
  passs=!defof user_password in $classhome/supervisor
23 
 !exit
 23 
  !exit
24 
!endif
 24 
!endif
25 
 
 25 
 
26 
title=!trim $title
 26 
title=!trim $title
27 
title=!replace internal , by , in $title
 27 
title=!replace internal , by , in $title
28 
!if $title=$empty
 28 
!if $title=$empty
29 
 error=empty_data
 29 
  error=empty_data
30 
 !exit
 30 
  !exit
31 
!endif
 31 
!endif
32 
 
 32 
 
33 
modclass_list=description,supervisor,Supervisor,password,secure,email
 33 
modclass_list=description,supervisor,Supervisor,password,secure,email
34 
cadd_description=$title
 34 
cadd_description=$title
35 
cadd_Supervisor=$sup
 35 
cadd_Supervisor=$sup
Line 39... Line 39...
39 
cadd_secure=$sechost
 39 
cadd_secure=$sechost
40 
 
 40 
 
41 
!read adm/gateway/modclass $class
 41 
!read adm/gateway/modclass $class
42 
 
 42 
 
43 
!if $error!=$empty
 43 
!if $error!=$empty
44 
 !exit
 44 
  !exit
45 
!endif
 45 
!endif
46 
 
 46 
 
47 
!read adm/gateway/mkindex
 47 
!read adm/gateway/mkindex
48 
!reset confirm,title,sup,passs,pass
 48 
!reset confirm,title,sup,passs,pass
49 
!readdef $classhome/.def
 49 
!readdef $classhome/.def
50 
!goto normal
 50 
!goto normal
51 
 
 -