Subversion Repositories wimsdev

!if $wims_superclass=$empty

!if $wims_superclass=$empty

  !let wims_superclass=$wims_class

  !let wims_superclass=$wims_class

!endif

!endif

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

!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

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

!!endif

!!endif

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

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

!set icoursecnt=!linecnt $icourses

!set icoursecnt=!linecnt $icourses

!!add the compulsory courses

!!add the compulsory courses

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

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

  !set sub_cnt=!linecnt $sub_

  !set sub_cnt=!linecnt $sub_

  !if $sub_cnt>0

  !if $sub_cnt>0

     !for k_=1 to $sub_cnt

     !for k_=1 to $sub_cnt

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

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

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

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

  !endif

  !endif

!next cls

!next cls

!set user_participate_=$user_participate

!set user_participate_=$user_participate

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

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

!read adm/class/graphclass participate\

!read adm/class/graphclass participate\

$compsup

$compsup