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

!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

       !endif

     !next

  !endif

!next

!let compsup=$empty

!for cls in $user_participate

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

 !let nb=!itemcnt $tmp

 !for l=2 to $nb

  !let t=!replace internal , by / in $(tmp[1 to $l])

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

 !next l

!next cls

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

!let compsup=!lines2items $compsup

!let compsup=!nospace $compsup

!read classgraph.phtml participate,$compsup