Rev 10763 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | |
2 | !if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty |
||
12981 | bpr | 3 | !exit |
20 | reyssat | 4 | !endif |
5 | |||
6 | ac_prog=$wims_read_parm |
||
7 | ac_Prog=$wims_superclass/$ac_prog |
||
8 | ac_Prog_=wimshome/log/classes/$ac_Prog |
||
9 | |||
10 | !readdef $ac_Prog_/.def |
||
11 | !readdef $ac_Prog_/supervisor |
||
10763 | bpr | 12 | cadd_description=$class_description - test |
20 | reyssat | 13 | cadd_superclass=$wims_superclass |
14 | cadd_secure=$sechost |
||
15 | cadd_parent=$wims_superclass/$ac_prog |
||
16 | cadd_type=1 |
||
17 | cadd_typename=course |
||
18 | |||
19 | !read adm/class/addclass $ac_Prog/0 |
||
20 | |||
21 | !setdef n_part=$ac_Prog\ |
||
22 | n_sup=$ac_Prog in $ac_Prog_/0/neighbors |
||
23 | ac_n=!defof n_part\ |
||
24 | n_sup in $ac_Prog_/neighbors |
||
25 | !distribute lines $ac_n into n_part, n_sup |
||
26 | n_part=!listunion $n_part and $ac_Prog/0 |
||
27 | n_sup =!listunion $n_sup and $ac_Prog/0 |
||
28 | !setdef n_part=$n_part\ |
||
29 | n_sup=$n_sup in $ac_Prog_/neighbors |
||
30 | |||
31 | !read adm/class/addshare $ac_Prog, $ac_Prog/0\ |
||
32 | sup |
||
33 |