Subversion Repositories wimsdev

Rev

Rev 2217 | Rev 5542 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
parent=level
3
thiscode=$class
4
!if $cancel!=$empty or $class=$empty
5
 job=first
6
 !changeto jobs/$job.proc
7
!endif
8
 
9
classhome=$classdir1/$class
10
!readdef $classhome/.def
11
!if $class_defined!=yes
12
 !goto back
13
!endif
14
 
15
!if $confirm=$empty
16
 :normal
17
 courses=!record 0 of $classhome/courses
18
 courses=!nonempty lines $courses
19
 coursecnt=!linecnt $courses
20
 pass=$class_password
21
 passs=!defof user_password in $classhome/supervisor
22
 !exit
23
!endif
24
 
25
title=!trim $title
26
title=!replace internal , by , in $title
27
!if $title=$empty
28
 error=empty_data
29
 !exit
30
!endif
31
 
4217 bpr 32
modclass_list=description,supervisor,Supervisor,password,secure,email
23 reyssat 33
cadd_description=$title
34
cadd_Supervisor=$sup
4217 bpr 35
modclass_slist=password,email
23 reyssat 36
sadd_password=$passs
37
cadd_password=$pass
38
cadd_secure=$sechost
39
 
40
!read adm/gateway/modclass $class
41
 
42
!if $error!=$empty
43
 !exit
44
!endif
45
 
46
!read adm/gateway/mkindex
47
!reset confirm,title,sup,passs,pass
48
!readdef $classhome/.def
49
!goto normal
50