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