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 
 
 -