Subversion Repositories wimsdev

Rev

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

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