Subversion Repositories wimsdev

!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