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