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
|
!distribute item $wims_read_parm into D_,C_,U_
!if $user_participate$user_supervise!=$empty
this_institution=$class_institution
!default CC_=$C_
uplist=
!if $class_type isin 13 and $class_superclass!=$empty
uplist=!makelist superclass_x_t $U_ for superclass_x_t in $class_superclass
!endif
!if $class_type isin 4 and $CC_ isitemof $user_supervise
uplist=!append item $CC_ supervisor to $uplist
!endif
!if $wims_otherclass=$empty
wims_otherclass=$uplist
!if / notin $user_participate$user_supervise
subclasses=!sh cut -d, -f1 $wims_home/log/classes/$CC_/.subclasses
subclasses=!replace internal : by $ in $subclasses
subclasses=!words2items $subclasses
user_participate=!listintersect $user_participate and $subclasses
user_supervise=!listintersect $user_supervise and $subclasses
!else
!for c in $user_participate,$user_supervise
!if $c!=$empty and ../$class_superclass/ notin ../$c and $class_type notin 24
!reset user_participate user_supervise
!break
!endif
!next c
!endif
!for C_ in $user_participate
wims_otherclass=$wims_otherclass,$C_ $U_
!next C_
!for C_ in $user_supervise
wims_otherclass=$wims_otherclass,$C_ supervisor
!next C_
!endif
!endif
wims_otherclass=$wims_class $wims_user,$wims_otherclass
wims_otherclass=!nonempty items $wims_otherclass
wims_otherclass=!listuniq $wims_otherclass
wims_otherclass=!item 1 to 20 of $wims_otherclass
!default wims_caller=$wims_session
|
