Subversion Repositories wimsdev

!if $wims_superclass=$empty

  !let wims_superclass=$wims_class

!endif

!set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat

!set user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser

!if $user_participate=$empty

  !exit

!endif

!set levels=!record 0 of wimshome/log/classes/$wims_class/levels

!set levelcnt=!linecnt $levels

!set classes=!record 0 of wimshome/log/classes/$wims_class/classes

!set classcnt=!linecnt $classes

!set progs=!record 0 of wimshome/log/classes/$wims_class/programs

!set progcnt=!linecnt $progs

!!if $classcnt+$progcnt>=1

 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses

 !set coursecnt=!linecnt $courses

!!endif

!set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses

!set icoursecnt=!linecnt $icourses

!!add the compulsory courses

!for cls in $user_participate

  !set sub_=!record 0 of wimshome/log/classes/$cls/courses

  !set sub_cnt=!linecnt $sub_

  !if $sub_cnt>0

    !for k_=1 to $sub_cnt

      !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def

      !set split=!replace internal / by , in $(sub_[$k_;1])

      !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def

      !if optional iswordof $progstyle

        !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user

      !endif

      !if mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit

        !set user_participate=!append item $wims_superclass/$(sub_[$k_;1]) to $user_participate

      !else

        !set user_optional=!append item $wims_superclass/$(sub_[$k_;1]) to $user_optional

      !endif

    !next

  !endif

!next cls

!let compsup=$empty

!for cls in $user_participate,$user_optional

  !if $wims_class isin $cls

    !let tmp=!replace internal / by , in $cls

    !let compsup=!append line $tmp to $compsup

  !endif

!next cls

!set user_participate_=$user_participate

!let compsup=!sh echo "$compsup" | sort | uniq;

!! better sorting for groupement (for students)

!if $class_type=2

  !set compsup_=!replace internal $wims_class, by in $compsup

  !set compsup_=!linestoitems $compsup_

  !set compsup_=!sort numeric items $compsup_

  !set compsup_=!makelist $wims_class/x for x in $compsup_

  !set compsup=!itemstolines $compsup_

  !set compsup=!replace internal / by , in $compsup

!endif

!if $supervisable=yes

  !if $compsup!=$empty

    !if $sup_details!=open

      !let tmp=open

    !endif

    <details $tmp>

      <summary>

        !if $class_type=3 and $class_typename!=level

          !!in a class

          $U_gotoclass11

        !else

          $U_gotoclass1

        !endif

      </summary>

      !read adm/class/graphclass participate\

$compsup

    </details>

  !endif

!else

  !if $class_type=3 and $class_typename!=level

    $U_gotoclass01

  !else

    $U_gotoclass0

  !endif

  !read adm/class/graphclass participate\

  $compsup

!endif