Rev 20 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | |
2 | !distribute item $wims_read_parm into D_,C_,U_ |
||
3 | |||
4 | !if $user_participate$user_supervise!=$empty |
||
5 | this_institution=$class_institution |
||
6 | !default CC_=$C_ |
||
7 | uplist= |
||
8 | !if $class_type isin 13 and $class_superclass!=$empty |
||
9 | uplist=!makelist superclass_x_t $U_ for superclass_x_t in $class_superclass |
||
10 | !endif |
||
9233 | bpr | 11 | !if $class_type isin 4 and $CC_ isitemof $user_supervise |
12 | uplist=!append item $CC_ supervisor to $uplist |
||
13 | !endif |
||
20 | reyssat | 14 | !if $wims_otherclass=$empty |
15 | wims_otherclass=$uplist |
||
16 | !if / notin $user_participate$user_supervise |
||
17 | subclasses=!sh cut -d, -f1 $wims_home/log/classes/$CC_/.subclasses |
||
18 | subclasses=!replace internal : by $ in $subclasses |
||
19 | subclasses=!words2items $subclasses |
||
20 | user_participate=!listintersect $user_participate and $subclasses |
||
21 | user_supervise=!listintersect $user_supervise and $subclasses |
||
22 | !else |
||
23 | !for c in $user_participate,$user_supervise |
||
24 | !if $c!=$empty and ../$class_superclass/ notin ../$c and $class_type notin 24 |
||
25 | !reset user_participate user_supervise |
||
26 | !break |
||
27 | !endif |
||
28 | !next c |
||
29 | !endif |
||
30 | !for C_ in $user_participate |
||
31 | wims_otherclass=$wims_otherclass,$C_ $U_ |
||
32 | !next C_ |
||
33 | !for C_ in $user_supervise |
||
34 | wims_otherclass=$wims_otherclass,$C_ supervisor |
||
35 | !next C_ |
||
36 | !endif |
||
37 | !endif |
||
38 | |||
39 | wims_otherclass=$wims_class $wims_user,$wims_otherclass |
||
40 | wims_otherclass=!nonempty items $wims_otherclass |
||
41 | wims_otherclass=!listuniq $wims_otherclass |
||
42 | wims_otherclass=!item 1 to 20 of $wims_otherclass |
||
43 | !default wims_caller=$wims_session |
||
44 |