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 |