Subversion Repositories wimsdev

 this_institution=$class_institution

  this_institution=$class_institution

 !default CC_=$C_

  !default CC_=$C_

 uplist=

  uplist=

 !if $class_type isin 13 and $class_superclass!=$empty

  !if $class_type isin 13 and $class_superclass!=$empty

  uplist=!makelist superclass_x_t $U_ for superclass_x_t in $class_superclass

    uplist=!makelist superclass_x_t $U_ for superclass_x_t in $class_superclass

 !endif

  !endif

 !if $class_type isin 4 and $CC_ isitemof $user_supervise

  !if $class_type isin 4 and $CC_ isitemof $user_supervise

   uplist=!append item $CC_ supervisor to $uplist

    uplist=!append item $CC_ supervisor to $uplist

 !endif

  !endif

 !if $wims_otherclass=$empty

  !if $wims_otherclass=$empty

  wims_otherclass=$uplist

    wims_otherclass=$uplist

  !if / notin $user_participate$user_supervise

    !if / notin $user_participate$user_supervise

   subclasses=!sh cut -d, -f1 $wims_home/log/classes/$CC_/.subclasses

      subclasses=!sh cut -d, -f1 $wims_home/log/classes/$CC_/.subclasses

   subclasses=!replace internal : by $ in $subclasses

      subclasses=!replace internal : by $ in $subclasses

   subclasses=!words2items $subclasses

      subclasses=!words2items $subclasses

   user_participate=!listintersect $user_participate and $subclasses

      user_participate=!listintersect $user_participate and $subclasses

   user_supervise=!listintersect $user_supervise and $subclasses

      user_supervise=!listintersect $user_supervise and $subclasses

  !else

    !else

   !for c in $user_participate,$user_supervise

      !for c in $user_participate,$user_supervise

    !if $c!=$empty and ../$class_superclass/ notin ../$c and $class_type notin 24

        !if $c!=$empty and ../$class_superclass/ notin ../$c and $class_type notin 24

     !reset user_participate user_supervise

          !reset user_participate user_supervise

     !break

          !break

   !next c

    !next C_