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 | - |