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