Subversion Repositories wimsdev

Rev

Rev 9233 | Go to most recent revision | Details | 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
11
 !if $wims_otherclass=$empty
12
  wims_otherclass=$uplist
13
  !if / notin $user_participate$user_supervise
14
   subclasses=!sh cut -d, -f1 $wims_home/log/classes/$CC_/.subclasses
15
   subclasses=!replace internal : by $ in $subclasses
16
   subclasses=!words2items $subclasses
17
   user_participate=!listintersect $user_participate and $subclasses
18
   user_supervise=!listintersect $user_supervise and $subclasses
19
  !else
20
   !for c in $user_participate,$user_supervise
21
    !if $c!=$empty and ../$class_superclass/ notin ../$c and $class_type notin 24
22
     !reset user_participate user_supervise
23
     !break
24
    !endif
25
   !next c
26
  !endif
27
  !for C_ in $user_participate
28
   wims_otherclass=$wims_otherclass,$C_ $U_
29
  !next C_
30
  !for C_ in $user_supervise
31
   wims_otherclass=$wims_otherclass,$C_ supervisor
32
  !next C_
33
 !endif
34
!endif
35
 
36
wims_otherclass=$wims_class $wims_user,$wims_otherclass
37
wims_otherclass=!nonempty items $wims_otherclass
38
wims_otherclass=!listuniq $wims_otherclass
39
wims_otherclass=!item 1 to 20 of $wims_otherclass
40
!default wims_caller=$wims_session
41