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