Subversion Repositories wimsdev

Rev

Rev 10762 | Rev 16685 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !if $wims_superclass=$empty
  2.   !let wims_superclass=$wims_class
  3. !endif
  4. !set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
  5. !set user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
  6. !if $user_participate=$empty
  7.   !exit
  8. !endif
  9. !set levels=!record 0 of wimshome/log/classes/$wims_class/levels
  10. !set levelcnt=!linecnt $levels
  11. !set classes=!record 0 of wimshome/log/classes/$wims_class/classes
  12. !set classcnt=!linecnt $classes
  13. !set progs=!record 0 of wimshome/log/classes/$wims_class/programs
  14. !set progcnt=!linecnt $progs
  15.  
  16. !!if $classcnt+$progcnt>=1
  17.  !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
  18.  !set coursecnt=!linecnt $courses
  19. !!endif
  20. !set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
  21. !set icoursecnt=!linecnt $icourses
  22.  
  23. !!add the compulsory courses
  24.  
  25. !for cls in $user_participate
  26.   !set sub_=!record 0 of wimshome/log/classes/$cls/courses
  27.   !set sub_cnt=!linecnt $sub_
  28.   !if $sub_cnt>0
  29.     !for k_=1 to $sub_cnt
  30.       !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def
  31.       !set split=!replace internal / by , in $(sub_[$k_;1])
  32.       !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def
  33.       !if optional iswordof $progstyle
  34.         !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user
  35.       !endif
  36.       !if mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit
  37.         !set user_participate=!append item $wims_superclass/$(sub_[$k_;1]) to $user_participate
  38.       !else
  39.         !set user_optional=!append item $wims_superclass/$(sub_[$k_;1]) to $user_optional
  40.       !endif
  41.     !next
  42.   !endif
  43. !next
  44.  
  45. !let compsup=$empty
  46. !for cls in $user_participate,$user_optional
  47.   !if $wims_class isin $cls
  48.     !let tmp=!replace internal / by , in $cls
  49.     !let compsup=!append line $tmp to $compsup
  50.   !endif
  51. !next cls
  52. !set user_participate_=$user_participate
  53. !let compsup=!sh echo "$compsup" | sort | uniq;
  54.  
  55.  
  56. !if $class_type=3 and $class_typename!=level
  57.    $U_gotoclass01
  58. !else
  59.    $U_gotoclass0
  60. !endif
  61.  
  62. !read adm/class/graphclass participate\
  63. $compsup
  64.