Subversion Repositories wimsdev

Rev

Rev 10760 | Rev 16684 | 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.        !endif
  39.      !next
  40.   !endif
  41. !next
  42.  
  43. !let compsup=$empty
  44. !for cls in $user_participate
  45.   !if $wims_class isin $cls
  46.     !let tmp=!replace internal / by , in $cls
  47.     !let compsup=!append line $tmp to $compsup
  48.   !endif
  49. !next cls
  50. !set user_participate_=$user_participate
  51. !let compsup=!sh echo "$compsup" | sort | uniq;
  52.  
  53.  
  54. !if $class_type=3 and $class_typename!=level
  55.    $U_gotoclass01
  56. !else
  57.    $U_gotoclass0
  58. !endif
  59.  
  60. !read adm/class/graphclass participate\
  61. $compsup
  62.