Subversion Repositories wimsdev

Rev

Rev 20 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 12555
Line 5... Line 5...
5
# cadd_...: class variable data. Defaults to class_...
5
# cadd_...: class variable data. Defaults to class_...
6
# sadd_...: supervisor variable data. Defaults to user_...
6
# sadd_...: supervisor variable data. Defaults to user_...
7
 
7
 
8
modclass=!item 1 of $wims_read_parm
8
modclass=!item 1 of $wims_read_parm
9
!if $modclass=$empty or $modclass_list$modclass_slist=$empty
9
!if $modclass=$empty or $modclass_list$modclass_slist=$empty
10
 !exit
10
  !exit
11
!endif
11
!endif
12
 
12
 
13
D_=wimshome/log/classes
13
D_=wimshome/log/classes
14
E_=$wims_home/log/classes
14
E_=$wims_home/log/classes
15
 
15
 
16
test=!defof class_defined in $D_/$modclass/.def
16
test=!defof class_defined in $D_/$modclass/.def
17
!if $test!=yes
17
!if $test!=yes
18
 !exit
18
  !exit
19
!endif
19
!endif
20
 
20
 
21
clist=$modclass_list
21
clist=$modclass_list
22
ulist=$modclass_slist
22
ulist=$modclass_slist
23
 
23
 
24
csetlist=
24
csetlist=
25
usetlist=
25
usetlist=
26
!if $class_lang isin cn and lastname isitemof $ulist and firstname isitemof $ulist\
26
!if $class_lang isin cn and lastname isitemof $ulist and firstname isitemof $ulist\
27
	and supervisor isitemof $clist
27
	  and supervisor isitemof $clist
28
  cadd_supervisor=$sadd_lastname$sadd_firstname
28
  cadd_supervisor=$sadd_lastname$sadd_firstname
29
!else
29
!else
30
  cadd_supervisor=!trim $sadd_firstname $sadd_lastname
30
  cadd_supervisor=!trim $sadd_firstname $sadd_lastname
31
!endif
31
!endif
32
!for t in $ulist
32
!for t in $ulist
33
 !if $(sadd_$t)!=$empty and $(sadd_$t)!=$(user_$t)
33
  !if $(sadd_$t)!=$empty and $(sadd_$t)!=$(user_$t)
34
  usetlist=!append line !set user_$t=$(sadd_$t) to $usetlist
34
    usetlist=!append line !set user_$t=$(sadd_$t) to $usetlist
35
 !endif
35
  !endif
36
 !reset sadd_$t
36
  !reset sadd_$t
37
!next t
37
!next t
38
!for t in $clist
38
!for t in $clist
39
 !if $(cadd_$t)!=$empty and $(cadd_$t)!=$(class_$t)
39
  !if $(cadd_$t)!=$empty and $(cadd_$t)!=$(class_$t)
40
  csetlist=!append line !set class_$t=$(cadd_$t) to $csetlist
40
    csetlist=!append line !set class_$t=$(cadd_$t) to $csetlist
41
 !endif
41
  !endif
42
 !reset cadd_$t
42
  !reset cadd_$t
43
!next t
43
!next t
44
 
44
 
45
!if $csetlist!=$empty
45
!if $csetlist!=$empty
46
 !setdef $csetlist in $D_/$modclass/.def
46
  !setdef $csetlist in $D_/$modclass/.def
47
!endif
47
!endif
48
 
48
 
49
!if $usetlist!=$empty
49
!if $usetlist!=$empty
50
 !setdef $usetlist in $D_/$modclass/supervisor
50
  !setdef $usetlist in $D_/$modclass/supervisor
51
!endif
51
!endif
52
 
-