Subversion Repositories wimsdev

Rev

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