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 |