Subversion Repositories wimsdev

Rev

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